|
| |
|
|
A130007
|
|
Products of two palindromic primes that are also the sum of three consecutive primes.
|
|
0
| |
|
|
49, 121, 1207, 22801, 36481, 75463, 117907, 215821, 863041, 2726521, 4787653, 5475883, 6292153, 6635593, 6931075, 7479643, 10273537, 10881199, 11986939, 12722419, 14203129, 15502339, 15653239, 15926995, 16700239, 18665209
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| 121 = 11 * 11 = 37 + 41 +43
1207 = 17 * 71 = 397 + 401 + 409
117907 = 157 * 751 = 39293 + 39301 + 39313
|
|
|
MATHEMATICA
| PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; pal[n_] := FromDigits@ Reverse@ IntegerDigits@n; fQ[n_] := Block[{pn = pal@n, p, q, r, s}, q = PrevPrim[ Ceiling[n*pn/3]]; p = PrevPrim@q; r = NextPrim[ Floor[n*pn/3]]; s = NextPrim@r; n*pn == p + q + r || n*pn == q + r + s]; pd = 6; lst = {}; Do[ pd = NextPrim@pd; If[ PrimeQ@pd && fQ@pd, Print[pd*pal@pd]; AppendTo[lst, pd*pal@pd]], {n, 1000}]; lst = Union@lst - Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 19 2007
|
|
|
CROSSREFS
| Cf. A007500.
Sequence in context: A115557 A167718 A080665 * A202331 A044300 A044681
Adjacent sequences: A130004 A130005 A130006 * A130008 A130009 A130010
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Paolo P. Lava & Giorgio Balzarotti (paoloplava(AT)gmail.com), Jun 15 2007
|
|
|
EXTENSIONS
| Corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 19 2007
|
| |
|
|
