A234021 Numbers with digits in nondecreasing order such that sum of squares of digits is a prime.

11, 12, 14, 16, 23, 25, 27, 38, 45, 49, 56, 58, 78, 111, 113, 119, 126, 133, 137, 146, 159, 166, 168, 179, 199, 223, 229, 234, 249, 267, 289, 335, 337, 344, 346, 348, 355, 357, 368, 377, 379, 388, 449, 467, 559, 566, 678, 689, 779, 799, 1112, 1114, 1118, 1125

Offset: 1

Author

Zak Seidov, Dec 31 2013

Keywords

• base
• nonn

Comments

Primitive solutions of A108662. Intersection of A009994 and A108662.

Links

• Zak Seidov, Table of n, a(n) for n = 1..2091 (all terms up to 10^7)

Crossrefs

Cf. A009994, A108662.

Programs

Mathematica

Select[Range[1125],LessEqual@@(id=IntegerDigits[#])&&PrimeQ[Total[id^2]]&] (* Ray Chandler, Dec 31 2013 *)