cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A058375 Palindromic primes with just two distinct prime digits.

This page as a plain text file.
%I A058375 #8 Dec 16 2021 19:07:25
%S A058375 353,373,727,757,32323,33533,35353,72227,72727,75557,77377,3222223,
%T A058375 3223223,3233323,3337333,3353533,3553553,3773773,7722277,7733377,
%U A058375 7772777,322222223,322323223,323222323,323232323,323333323,333535333
%N A058375 Palindromic primes with just two distinct prime digits.
%t A058375 Select[ Range[ 1, 780000000, 2 ], PrimeQ[ # ] && Length[ Union[ IntegerDigits[ # ] ] ] == 2 && IntegerDigits[ # ] == Reverse[ IntegerDigits[ # ] ] && Position[ IntegerDigits[ # ], 0 ] == {} && Position[ IntegerDigits[ # ], 1 ] == {} && Position[ IntegerDigits[ # ], 4 ] == {} && Position[ IntegerDigits[ # ], 6 ] == {} && Position[ IntegerDigits[ # ], 8 ] == {} && Position[ IntegerDigits[ # ], 9 ] == {} & ]
%t A058375 Select[Prime[Range[18*10^6]],PalindromeQ[#]&&AllTrue[ IntegerDigits[ #],PrimeQ] && Length[ Union[ IntegerDigits[ #]]] ==2&] (* _Harvey P. Dale_, Dec 16 2021 *)
%Y A058375 Cf. A056730.
%K A058375 nonn,base
%O A058375 1,1
%A A058375 _Robert G. Wilson v_, Dec 18 2000