|
|
A058323
|
|
Initial prime in set of 4 consecutive primes with common gap 42.
|
|
14
|
|
|
23921257, 32611897, 33215597, 35650007, 44201617, 49945837, 51616717, 70350487, 70687937, 74816107, 78789707, 86066047, 99641917, 101568287, 129031187, 146922077, 149568217, 151779517, 153921017, 156793337, 162881627
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
d[x_] := Prime[x+1]-Prime[x] {k1=42, k2=42, k3=42} k=0 Do[If[Equal[d[n], k1]&&Equal[d[n+1], k2]&& Equal[d[n+2], k3], k=k+1; Print[{k, n, Prime[n], Prime[n+1], Prime[n+2], Prime[n+3]}]], {n, 1, 10000000}]
Transpose[Select[Partition[Prime[Range[9000000]], 4, 1], Union[Differences[#]]=={42}&]][[1]] (* Vincenzo Librandi, Jun 21 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|