login
A158205
Primes with every digit a nonprime and the sum of the digits a prime.
1
11, 41, 61, 89, 101, 191, 199, 401, 409, 449, 461, 601, 641, 661, 809, 881, 911, 919, 991, 1019, 1091, 1109, 1181, 1499, 1619, 1811, 1901, 1949, 4001, 4049, 4111, 4409, 4441, 4481, 4649, 4801, 4861, 4889, 4919, 4999, 6089, 6449, 6481, 6661, 6689, 6841
OFFSET
1,1
COMMENTS
Nonprime digits are 0, 1, 4, 6, 8 or 9.
LINKS
EXAMPLE
11(1+1=2), 41(4+1=5), 61(6+1=7), 89(8+9=17), 101(1+0+1=2), 191(1+9+1=11)
MATHEMATICA
Select[FromDigits/@Select[Tuples[{0, 1, 4, 6, 8, 9}, 4], PrimeQ[Total[#]]&], PrimeQ]//Flatten (* Harvey P. Dale, Oct 02 2021 *)
CROSSREFS
KEYWORD
nonn,base,easy,less
AUTHOR
EXTENSIONS
Entries checked by R. J. Mathar, May 19 2010
STATUS
approved