A083979 Smallest palindromic prime containing exactly n 8's.

181, 18181, 78887, 1880881, 9888889, 188868881, 188888881, 18888588881, 1488888888841, 7888886888887, 3888888888883, 188888858888881, 188888888888881, 38888888088888883, 1688888888888888861, 3888888882888888883, 128888888888888888821

Offset: 1

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003

Keywords

• base
• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..500

Crossrefs

Cf. A083972, A083973, A083974, A083975, A083976, A083977, A083978, A083980, A083981.

Programs

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 *)

Extensions

Corrected and extended by Giovanni Resta, Feb 08 2006