OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..200
MATHEMATICA
Select[Range[10000000], DivisorSigma[1, #]==DivisorSigma[1, # + 9] &] (* Vincenzo Librandi, Mar 10 2014 *)
Position[Partition[DivisorSigma[1, Range[10^7]], 10, 1], _?(#[[1]] == #[[10]]&), {1}, Heads->False]//Flatten (* Harvey P. Dale, Aug 25 2016 *)
PROG
(PARI) is(n)=sigma(n)==sigma(n+9) \\ Charles R Greathouse IV, Mar 09 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved