A179026 Primes whose only prime digits are 3's.

3, 13, 31, 43, 83, 103, 113, 131, 139, 163, 193, 311, 313, 331, 349, 383, 389, 431, 433, 439, 443, 463, 613, 631, 643, 683, 839, 863, 883, 983, 1013, 1031, 1033, 1039, 1063, 1093, 1103, 1163, 1193, 1301, 1303, 1319, 1361, 1381, 1399, 1433, 1439, 1483, 1493

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

pd3Q[n_]:=Module[{idn=IntegerDigits[n]}, MemberQ[idn, 3]&&Union[PrimeQ[ DeleteCases[ IntegerDigits[n], 3]]]=={False}]; Join[{3}, Select[ Prime[ Range[300]], pd3Q]] (* Harvey P. Dale, Jun 12 2013 *)

Crossrefs

Cf. A179027.

Sequence in context: A097443 A248368 A171517 * A179027 A145907 A054554

Adjacent sequences: A179023 A179024 A179025 * A179027 A179028 A179029

Keyword

nonn,base

Author

Lekraj Beedassy, Jun 25 2010

Extensions

Corrected by Ray Chandler, Jul 13 2010

Status

approved