A362453 Indices of 0's in A361897.

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

Author

N. J. A. Sloane, May 05 2023

Keywords

• nonn

Links

• Paolo Xausa, Table of n, a(n) for n = 1..20000 (terms 1..5250 from N. J. A. Sloane)

Crossrefs

Cf. A361897, A362450, A362454.

Programs

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 *)