|
%I #14 May 11 2022 15:14:50
%S 181,18181,78887,1880881,9888889,188868881,188888881,18888588881,
%T 1488888888841,7888886888887,3888888888883,188888858888881,
%U 188888888888881,38888888088888883,1688888888888888861,3888888882888888883,128888888888888888821
%N Smallest palindromic prime containing exactly n 8's.
%H Chai Wah Wu, <a href="/A083979/b083979.txt">Table of n, a(n) for n = 1..500</a>
%t Table[d = 8; i = 1;
%t While[ x = IntegerDigits[Prime[i]];
%t x != Reverse[x] || Count[x, d] != n , i++];
%t FromDigits[x], {n, 1, 5}] (* _Robert Price_, Mar 25 2019 *)
%t 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 *)
%Y Cf. A083972, A083973, A083974, A083975, A083976, A083977, A083978, A083980, A083981.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 21 2003
%E Corrected and extended by _Giovanni Resta_, Feb 08 2006
|
