|
%I #21 Jul 31 2023 16:14:08
%S 2,3,5,7,11,101,131,151,181,191,313,353,373,383,727,757,787,797,919,
%T 929,11311,11411,13331,15551,16661,18181,19991,32323,33533,35353,
%U 72227,72727,74747,75557,76667,77377,77477,77977,78787,78887,79997,94949,95959
%N Palindromic primes using at most two distinct digits.
%C Union of A056730 and A116692. [_Arkadiusz Wesolowski_, Sep 13 2011]
%H Jon E. Schoenfield, <a href="/A088562/b088562.txt">Table of n, a(n) for n = 1..12320</a> (all terms < 10^25)
%t Select[Prime[Range[10000]],PalindromeQ[#]&&Count[DigitCount[#],0]>7&] (* _Harvey P. Dale_, Jul 31 2023 *)
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 28 2003
%E More terms from _Arkadiusz Wesolowski_, Sep 13 2011
|
