|
Search: id:A089182
|
|
|
| A089182 |
|
Overlapping prime-based palindromic sequence. |
|
+0
2
|
|
| 2, 22, 232, 2332, 23532, 235532, 2357532, 23577532, 235817532, 2358217532, 23582417532, 235824417532, 2358248417532, 23582488417532, 235824908417532, 2358249108417532, 23582491508417532, 235824915508417532
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
Only the first 8 terms are truely palindromes: a modulo 10 version of this would work with a limited digit set of {0,1,2,3,5,7,9} with 2 and 5 always on the beginning and end.
|
|
FORMULA
|
a[m]=Delete[Table[If [ Floor[m/2]-n>=0, Prime[ n], Prime[m-n]], {n, 1, m}], m] b[m] = Sum[a[m][[i]]*10^(i-1), {i, 1, m-1}]
|
|
MATHEMATICA
|
a[m_]=Delete[Table[If [ Floor[m/2]-n>=0, Prime[ n], Prime[m-n]], {n, 1, m}], m] b=Table[Sum[a[m][[i]]*10^(i-1), {i, 1, m-1}], {m, 2, digits}]
|
|
CROSSREFS
|
Cf. A007907.
Sequence in context: A002276 A112893 A086855 this_sequence A138140 A082777 A036841
Adjacent sequences: A089179 A089180 A089181 this_sequence A089183 A089184 A089185
|
|
KEYWORD
|
nonn,base,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 07 2003
|
|
|
Search completed in 0.002 seconds
|
