A362461 Indices of 0's in A362460.

3, 4, 5, 9, 10, 11, 13, 15, 16, 18, 19, 22, 24, 25, 29, 30, 34, 37, 40, 42, 43, 48, 49, 52, 55, 57, 59, 64, 66, 70, 71, 72, 79, 80, 81, 82, 92, 93, 94, 96, 98, 99, 100, 102, 105, 107, 110, 113, 114, 115, 118, 119, 120, 121, 126, 132, 133, 134, 136, 138, 141, 143, 146, 147, 148, 149, 151, 154, 155, 157, 160, 164, 166

Offset: 1

Author

N. J. A. Sloane, May 07 2023

Keywords

• nonn

Links

• Rémy Sigrist, Table of n, a(n) for n = 1..10000
• Rémy Sigrist, C program

Crossrefs

Cf. A362460, A362462.

Programs

C

See Links section.

Mathematica

A000959[upto_]:=Module[{s=2,a=Range[1,upto,2]},While[sA362461[upto_]:=Module[{d=A000959[upto]},Table[If[First[d=Abs[Differences[d]]]==0,n,Nothing],{n,Length[d]-1}]];
A362461[2000] (* Uses lucky numbers up to 2000 *) (* Paolo Xausa, May 10 2023 *)