login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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
OFFSET
1,1
LINKS
MATHEMATICA
Table[d = 8; i = 1;
While[ x = IntegerDigits[Prime[i]];
x != Reverse[x] || Count[x, d] != n , i++];
FromDigits[x], {n, 1, 5}] (* Robert Price, Mar 25 2019 *)
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 *)
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
EXTENSIONS
Corrected and extended by Giovanni Resta, Feb 08 2006
STATUS
approved