OFFSET
1,1
COMMENTS
For each term given here, n+1 is divisible by 3, but that's not always true; n=12396999 is a counterexample.
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
MATHEMATICA
Flatten[Position[Partition[DivisorSigma[1, Range[8100000]], 3, 1], _?(Last[#] == 2*First[#]&), {1}, Heads->False]]+1 (* Harvey P. Dale, Aug 19 2013 *)
PROG
(PARI) s1=1; s2=3; for(n=2, 10^8, s3=sigma(n+1); if(s3==2*s1, print1(n ", ")); s1=s2; s2=s3) /* Donovan Johnson, Apr 06 2013 */
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 18 2002
EXTENSIONS
Edited by Dean Hickerson, Feb 20 2002
STATUS
approved