OFFSET
1,1
COMMENTS
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..10000
MATHEMATICA
seq[max_] := Module[{t = Table[0, {max}]}, t[[Complement[Range[max], Table[ DivisorSigma[1, n], {n, 1, max}]]]] = 1; t]; seq[100] (* Amiram Eldar, Mar 22 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Mar 14 2010
EXTENSIONS
More terms from Jaroslav Krizek, Dec 25 2011.
STATUS
approved