login
A362453
Indices of 0's in A361897.
3
4, 8, 9, 10, 11, 13, 14, 15, 16, 20, 24, 28, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 68, 72, 73, 74, 75, 77, 78, 79, 80, 81, 82, 83, 85, 86, 87, 89, 90, 91, 93, 94, 95, 96, 100, 104, 105, 106, 107, 109, 110, 111, 112, 116, 120, 121, 122, 123, 125, 126, 127, 132, 136, 137
OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..20000 (terms 1..5250 from N. J. A. Sloane)
MATHEMATICA
A362453[upto_]:=Module[{d=DivisorSigma[0, Range[upto]]}, Table[If[First[d=Abs[Differences[d]]]==0, n, Nothing], {n, 2, upto}]]; A362453[200] (* Paolo Xausa, May 07 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 05 2023
STATUS
approved