A242190 Primes congruent to 1 (mod 3) which only have the odd digits {1, 3, 7, 9}.

7, 13, 19, 31, 37, 73, 79, 97, 139, 193, 199, 313, 331, 337, 373, 379, 397, 733, 739, 919, 937, 991, 997, 1117, 1171, 1399, 1777, 1933, 1993, 1999, 3313, 3319, 3331, 3373, 3391, 3733, 3739, 3793, 3919, 3931, 7177, 7333, 7393, 7717, 7933, 7993, 9133, 9199, 9319, 9337, 9391, 9397, 9733, 9739, 9931, 9973

Offset

1,1

Comments

Potential candidates for A224929.

Subsequence of A002476. - Michel Marcus, May 06 2014

Links

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

Mathematica

Select[ Prime@ Range@ 1250, Union@ Join[{1, 3, 7, 9}, IntegerDigits@#] == {1, 3, 7, 9} && Mod[#, 3] == 1 &]
Select[Flatten[Table[FromDigits/@Tuples[{1, 3, 7, 9}, n], {n, 4}]], PrimeQ[#] && Mod[#, 3]==1&] (* Harvey P. Dale, Jun 16 2017 *)

Crossrefs

Cf. A002476, A224929.

Sequence in context: A216567 A091180 A272381 * A053458 A040058 A172057

Adjacent sequences: A242187 A242188 A242189 * A242191 A242192 A242193

Keyword

nonn,easy

Author

Robert G. Wilson v, May 06 2014

Status

approved