OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
seq[max_] := Module[{t = Table[1, {max}]}, t[[Complement[Range[max], Table[ DivisorSigma[1, n], {n, 1, max}]]]] = 0; Complement[Range[max - 1], SequencePosition[t, {0, 0}][[;; , 1]]]]; seq[120] (* Amiram Eldar, Mar 22 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Nov 06 2010
EXTENSIONS
Definition revised by Editors of OEIS, Mar 24 2024
STATUS
approved