|
|
A083979
|
|
Smallest palindromic prime containing exactly n 8's.
|
|
10
|
|
|
181, 18181, 78887, 1880881, 9888889, 188868881, 188888881, 18888588881, 1488888888841, 7888886888887, 3888888888883, 188888858888881, 188888888888881, 38888888088888883, 1688888888888888861, 3888888882888888883, 128888888888888888821
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Table[d = 8; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
Module[{prs=Select[Prime[Range[105*10^5]], PalindromeQ]}, Table[ SelectFirst[ prs, DigitCount[ #, 10, 8]==n&], {n, 6}]] (* The program generates the first 6 terms of the sequence. *) (* Harvey P. Dale, May 11 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|