OFFSET
1,8
COMMENTS
a(n)>=1.
LINKS
Internet Math. Olympiad, February: Problem 1
MATHEMATICA
squareQ[n_] := IntegerQ[Sqrt[n]] f[n_] := Sum[Prime[i], {i, 1, n}] a[n_] := Length[Select[Table[i, {i, a[n], a[n + 1]}], squareQ]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Santi Spadaro, Jun 11 2002
STATUS
approved