A359629 Indices of the primes of |A007442|.

1, 5, 7, 8, 11, 13, 40, 106, 132, 154, 478, 647, 1576, 2067, 2656, 3837, 5158, 6985, 7844, 9777, 11607, 21027, 22638, 31979, 33592, 34279

Offset: 1

Author

Robert G. Wilson v, Jan 08 2023

Keywords

• nonn
• more

Crossrefs

Cf. A007442.

Programs

Mathematica

fQ[n_] := PrimeQ[ Differences[ Prime@ Range@ n, n - 1]][[1]]; k = 1; lst = {}; While[k < 36001, If[fQ@ k, AppendTo[lst, k]]; k++]; lst