login
A242190
Primes congruent to 1 (mod 3) which only have the odd digits {1, 3, 7, 9}.
2
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
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
Sequence in context: A216567 A091180 A272381 * A053458 A040058 A172057
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, May 06 2014
STATUS
approved