OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..71998
EXAMPLE
MATHEMATICA
Select[Range[10^7], DivisorSigma[0, {#, #+1}]=={12, 12}&]
Transpose[SequencePosition[DivisorSigma[0, Range[6500]], {12, 12}]][[1]] (* The program uses the SequencePosition function from Mathematica version 10 *) (* Harvey P. Dale, Jul 16 2016 *)
PROG
(PARI) is(n)=numdiv(n)==12 && numdiv(n+1)==12 \\ Charles R Greathouse IV, Jun 19 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 25 2010
STATUS
approved