OFFSET
1,1
COMMENTS
Indices of the primes given in A031928.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..8870
MATHEMATICA
Select[Range[1000], Prime[#] + 10 == Prime[# + 1] &] (* Vincenzo Librandi, Mar 21 2019 *)
Position[Partition[Prime[Range[600]], 2, 1], _?(#[[2]]-#[[1]]==10&), 1, Heads-> False]//Flatten (* Harvey P. Dale, Mar 08 2020 *)
PROG
(PARI) A320703_vec(N=100, g=10, p=2, i=primepi(p)-1, L=List())={forprime(q=1+p, , i++; if(p+g==p=q, listput(L, i); N--||break)); Vec(L)} \\ returns the list of first N terms of the sequence
(Magma) [n: n in [1..1000] | NthPrime(n+1) - NthPrime(n) eq 10]; // Vincenzo Librandi, Mar 21 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Oct 19 2018
STATUS
approved