Function: isfundamental
Section: number_theoretical
C-Name: gisfundamental
Prototype: G
Help: isfundamental(x): true(1) if x is a fundamental discriminant
 (including 1), false(0) if not
Description: 
 (int):bool	isfundamental($1)
 (gen):gen	gisfundamental($1)

