OFFSET
1,1
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..12443
PROG
(PARI)
A060990(n) = { my(k = n + 1440, s=0); while(k > n, if(((k-numdiv(k)) == n), s++); k--; ); s}; \\ Hard limit 1440 is good for at least up to A002182(67) = 1102701600 as A002183(67) = 1440.
n = 1; k = 0; while((n^2)<1102701600, if((0 == A060990(n*n)), k++; write("b263093.txt", k, " ", n); write("b263095.txt", k, " ", (n*n)); ); n++; if(!(n%8192), print1(n, ", k=", k, ", ")); );
(Scheme, with Antti Karttunen's IntSeq-library)
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 11 2015
STATUS
approved