OFFSET
2,1
LINKS
Ray Chandler, Table of n, a(n) for n=2..85
MATHEMATICA
With[{s = KeySort@ PositionIndex@ Table[1 + Count[Rest@ Divisors@ n, _?(AnyTrue[# + {-1, 1}, Divisible[n, #] &] &)], {n, 1200000}]}, Function[t, TakeWhile[#, # > 0 &] &@ Rest@ ReplacePart[t, Map[# -> Lookup[s, #][[1]] &, Keys@ s]]]@ ConstantArray[0, Last@ Keys@ s]] (* Michael De Vlieger, Oct 11 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 01 2007
EXTENSIONS
Extended by Ray Chandler, Jun 24 2008
STATUS
approved