OFFSET
1,1
MATHEMATICA
lst=Table[cnt=0; Do[x=Sqrt[y^k-n]; If[IntegerQ[x], cnt++ ], {k, 3, 20}, {y, 600}]; cnt, {n, 2, 100}]; Flatten[Position[lst, 0]]+1
CROSSREFS
KEYWORD
hard,nonn
AUTHOR
T. D. Noe, May 13 2004
STATUS
approved