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,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

Cf. A361897, A362450, A362454.

Sequence in context: A163409 A312828 A267647 * A214489 A189207 A127162

Adjacent sequences: A362450 A362451 A362452 * A362454 A362455 A362456

Keyword

nonn

Author

N. J. A. Sloane, May 05 2023

Status

approved