A056730 -id:A056730 - cp's OEIS frontend

A088562 Palindromic primes using at most two distinct digits.

2, 3, 5, 7, 11, 101, 131, 151, 181, 191, 313, 353, 373, 383, 727, 757, 787, 797, 919, 929, 11311, 11411, 13331, 15551, 16661, 18181, 19991, 32323, 33533, 35353, 72227, 72727, 74747, 75557, 76667, 77377, 77477, 77977, 78787, 78887, 79997, 94949, 95959

Offset: 1

Amarnath Murthy, Nov 28 2003

Union of A056730 and A116692. - Arkadiusz Wesolowski, Sep 13 2011

Jon E. Schoenfield, Table of n, a(n) for n = 1..12320 (all terms < 10^25)

Cf. A056730, A116692.

Select[Prime[Range[10000]],PalindromeQ[#]&&Count[DigitCount[#],0]>7&] (* Harvey P. Dale, Jul 31 2023 *)

More terms from Arkadiusz Wesolowski, Sep 13 2011

A058375 Palindromic primes with just two distinct prime digits.

Original entry on oeis.org

353, 373, 727, 757, 32323, 33533, 35353, 72227, 72727, 75557, 77377, 3222223, 3223223, 3233323, 3337333, 3353533, 3553553, 3773773, 7722277, 7733377, 7772777, 322222223, 322323223, 323222323, 323232323, 323333323, 333535333

Offset: 1

Robert G. Wilson v, Dec 18 2000

Cf. A056730.

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 ] == {} & ]
Select[Prime[Range[18*10^6]],PalindromeQ[#]&&AllTrue[ IntegerDigits[ #],PrimeQ] && Length[ Union[ IntegerDigits[ #]]] ==2&] (* Harvey P. Dale, Dec 16 2021 *)

cp's OEIS Frontend

A088562 Palindromic primes using at most two distinct digits.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Extensions