|
|
A166034
|
|
Primes which are equal to the sum of three consecutive primes minus 2.
|
|
1
|
|
|
13, 29, 47, 107, 157, 197, 233, 317, 347, 563, 587, 631, 659, 677, 769, 787, 827, 839, 881, 929, 983, 1013, 1031, 1097, 1117, 1283, 1301, 1531, 1583, 1609, 1733, 1777, 1847, 1889, 1913, 2099, 2153, 2213, 2267, 2477, 2969, 3083, 3119, 3137, 3191, 3217
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1)=3+5+7-2=13; a(2)=7+11+13-2=29; a(3)=13+17+19-2=47.
|
|
MATHEMATICA
|
Select[Table[Sum[Prime[k], {k, n , n + 2}] - 2, {n, 1, 100}], PrimeQ] (* G. C. Greubel, Apr 24 2016 *)
Select[Total/@Partition[Prime[Range[300]], 3, 1]-2, PrimeQ] (* Harvey P. Dale, Dec 31 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|