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,1

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)

Mathematica

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

Crossrefs

Cf. A009994, A108662.

Sequence in context: A108662 A210767 A182404 * A264023 A177902 A108722

Adjacent sequences: A234018 A234019 A234020 * A234022 A234023 A234024

Keyword

base,nonn

Author

Zak Seidov, Dec 31 2013

Status

approved