OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MAPLE
a:=proc(n) if nextprime(ithprime(n))-ithprime(n)=38 then ithprime(n) else end if end proc: seq(a(n), n=1..15000); # Emeric Deutsch, Oct 24 2007
MATHEMATICA
Select[Prime[Range[5000]], NextPrime[#] == # + 38 &] (* Alonso del Arte, Apr 10 2016 *)
Select[Partition[Prime[Range[13000]], 2, 1], #[[2]]-#[[1]]==38&][[All, 1]] (* Harvey P. Dale, Oct 03 2020 *)
PROG
(PARI) lista(nn) = {p = 2; forprime (q = 3, nn, if (q-p == 38, print1(p, ", ")); p = q; ); } \\ Michel Marcus, Apr 11 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd, Oct 08 2007
STATUS
approved