A158205 Primes with every digit a nonprime and the sum of the digits a prime.

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

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

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

Cf. A000040, A062088, A141468.

Sequence in context: A040170 A333085 A085564 * A179446 A260269 A109982

Adjacent sequences: A158202 A158203 A158204 * A158206 A158207 A158208

Keyword

nonn,base,easy,less

Author

Juri-Stepan Gerasimov, Mar 13 2009

Extensions

Entries checked by R. J. Mathar, May 19 2010

Status

approved