OFFSET
1,1
COMMENTS
a(n)=0 for square n. - Ralf Stephan, Mar 30 2003
PROG
(PARI) v=vector(1000000):for(n=1, 100, f=0:forprime(p=2, 1000000, if(!v[p]&&issquare(p+n), f=p:break)): if(f, print1(f", "):v[f]=1, print1("0, ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 23 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 30 2003
STATUS
approved