|
|
A164133
|
|
Primes p such that 4*p and 6*p are each the sum of two consecutive primes.
|
|
0
|
|
|
2, 3, 13, 43, 127, 167, 613, 647, 1033, 1483, 1543, 2297, 2927, 3701, 3823, 4463, 5101, 5417, 5657, 6133, 8081, 9227, 11273, 11833, 12511, 13291, 13873, 17627, 19853, 20011, 21313, 21727, 22193, 23041, 23059, 23081, 23159, 24443, 26347, 26947, 27407, 27527
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
stcpQ[n_]:=Module[{a=4n, b=6n}, a==NextPrime[a/2]+NextPrime[a/2, -1]&&b== NextPrime[b/2]+NextPrime[b/2, -1]]; Select[Prime[Range[3100]], stcpQ] (* Harvey P. Dale, May 01 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|