A362462 Indices of 1's in A362460.

1, 2, 6, 7, 8, 12, 14, 17, 20, 21, 23, 26, 27, 28, 31, 32, 33, 35, 36, 38, 39, 41, 44, 45, 46, 47, 50, 51, 53, 54, 56, 58, 60, 61, 62, 63, 65, 67, 68, 69, 73, 74, 75, 76, 77, 78, 83, 84, 85, 86, 87, 88, 89, 90, 91, 95, 97, 101, 103, 104, 106, 108, 109, 111, 112, 116, 117, 122, 123, 124, 125, 127, 128, 129, 130, 131, 135

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

Programs

C

See Links section.

Mathematica

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