login
A359629
Indices of the primes of |A007442|.
0
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
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
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Jan 08 2023
STATUS
approved