|
|
A134124
|
|
Primes p such that q-p = 50, where q is the next prime after p.
|
|
5
|
|
|
31907, 45893, 60539, 69263, 95651, 112691, 162293, 167543, 172883, 181553, 197837, 206699, 212507, 220613, 225167, 246839, 272813, 274529, 291569, 293021, 298943, 334793, 338609, 345329, 349241, 355211, 362801, 368957, 369419, 380657
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Index entries for primes, gaps between
|
|
FORMULA
|
a(n) >> n log^2 n. - Charles R Greathouse IV, Sep 14 2015
|
|
MAPLE
|
a:=proc(n) if nextprime(ithprime(n))-ithprime(n)=50 then ithprime(n) else end if end proc: seq(a(n), n=1..40000); # Emeric Deutsch, Oct 24 2007
|
|
MATHEMATICA
|
Transpose[Select[Partition[Prime[Range[40000]], 2, 1], #[[2]]-#[[1]] == 50&]][[1]] (* Harvey P. Dale, Feb 27 2015 *)
|
|
PROG
|
(PARI) is(n)=nextprime(n+1)==n+50 && isprime(n) \\ Charles R Greathouse IV, Sep 14 2015
|
|
CROSSREFS
|
Cf. A134123.
Sequence in context: A278013 A140939 A237165 * A203738 A234995 A236587
Adjacent sequences: A134121 A134122 A134123 * A134125 A134126 A134127
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Rick L. Shepherd, Oct 08 2007
|
|
STATUS
|
approved
|
|
|
|