OFFSET
0,3
COMMENTS
All terms are squares (A262688 gives the square roots).
The even and odd terms alternate.
PROG
(PARI)
allocatemem((2^31)+(2^30));
uplim = 2^25;
v262680 = vector(uplim);
v262680[1] = 1; v262680[2] = 0;
for(i=3, uplim, v262680[i] = issquare(i) + v262680[i-numdiv(i)];
if(!(i%65536), print1(i, ", ")); );
A262680 = n -> if(!n, n, v262680[n]);
n=0; k=0; while(n*n <= uplim, if(A262680(n*n)==k, write("b262687.txt", k, " ", n*n); k++); n++; );
(Scheme, with Antti Karttunen's IntSeq-library)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Antti Karttunen, Oct 03 2015
STATUS
approved