|
|
A255897
|
|
Primes equal to the sum of both two and three successive semiprimes.
|
|
1
|
|
|
19, 73, 233, 719, 839, 2287, 2593, 5927, 6551, 6833, 6991, 7129, 10639, 11593, 15551, 18049, 20347, 20719, 20749, 22073, 23117, 25111, 26633, 27967, 28607, 30161, 31729, 32969, 38449, 39761, 40361, 41479, 42359, 45083, 47287
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
19=9+10=4+6+9, 73=35+38=22+25+26.
|
|
MATHEMATICA
|
Module[{nn=25000, sp, c2, c3}, sp=Select[Range[nn], PrimeOmega[#]==2&]; c2= Select[ Total/@Partition[sp, 2, 1], PrimeQ]; c3=Select[Total/@Partition[ sp, 3, 1], PrimeQ]; Intersection[c2, c3]] (* Harvey P. Dale, Sep 21 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|