OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..150
PROG
(PARI) j=[]; for(n=1, 70000, x=sigma(n)+1; if(issquare(x), b=x; if(b>a, a=b; \ j=concat(j, n)))); j
(PARI) { n=0; a=-1; for (m=1, 10^9, if (issquare(b=sigma(m) + 1), if (b>a, a=b; write("b063729.txt", n++, " ", m); if (n==150, break))) ) } \\ Harry J. Smith, Aug 28 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 12 2001
STATUS
approved