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

Links

Table of n, a(n) for n=1..26.

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

Crossrefs

Cf. A007442.

Sequence in context: A082728 A374042 A374044 * A285081 A154370 A045251

Adjacent sequences: A359626 A359627 A359628 * A359630 A359631 A359632

Keyword

nonn,more

Author

Robert G. Wilson v, Jan 08 2023

Status

approved