OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..100
PROG
(PARI) f(n) = s=0; for(x=1, n^2, if(sigma(x)-x-1==n, s++)); s ud(n) = 2^omega(n); j=[]; for(n=1, 150, if(f(n)==ud(n), j=concat(j, n))); j
(PARI) f(n)= { local(s=0); for(x=1, n^2, if(sigma(x) - x - 1==n, s++)); return(s) } ud(n)= { 2^omega(n) } { n=0; for (m=1, 10^9, if (f(m)==ud(m), write("b064465.txt", n++, " ", m); if (n==100, break)) ) } \\ Harry J. Smith, Sep 15 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Oct 03 2001
EXTENSIONS
More terms from Klaus Brockhaus, Oct 03 2001
STATUS
approved