OFFSET
0,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 0..10000
EXAMPLE
11 is included because d(11) = 2 divides d(12) = 6.
MATHEMATICA
Select[Range@150, Divisible @@ DivisorSigma[0, {# + 1, #}] &] (* Ivan Neretin, May 29 2015 *)
Position[Partition[DivisorSigma[0, Range[150]], 2, 1], _?(Divisible[#[[2]], #[[1]]]&), 1, Heads->False]//Flatten (* Harvey P. Dale, May 08 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Nov 11 2000
STATUS
approved