A221699 Numbers with property that each sum any pair of digits is prime.

11, 12, 14, 16, 20, 21, 23, 25, 29, 30, 32, 34, 38, 41, 43, 47, 49, 50, 52, 56, 58, 61, 65, 67, 70, 74, 76, 83, 85, 89, 92, 94, 98, 111, 112, 114, 116, 121, 141, 161, 203, 205, 211, 230, 250, 302, 320, 411, 502, 520, 611, 1111, 1112, 1114, 1116, 1121, 1141, 1161

Offset

1,1

Comments

Supersequence of A091939. Subsequence of A182175.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..145

Example

Number 203 is a term because 2+3=5, 2+0=2, 3+0=3 (primes).

Mathematica

fQ[n_] := Module[{d = IntegerDigits[n]}, Union[PrimeQ[Plus @@@ Union[Subsets[d, {2}]]]] == {True}]; Select[Range[6000], fQ] (* T. D. Noe, Jan 24 2013 *)
Select[Range[10, 1200], AllTrue[Total/@Subsets[IntegerDigits[#], {2}], PrimeQ]&] (* Harvey P. Dale, Jan 31 2024 *)

Crossrefs

Cf. A172508, A091939, A182175.

Sequence in context: A055100 A247849 A088134 * A227823 A332379 A140353

Adjacent sequences: A221696 A221697 A221698 * A221700 A221701 A221702

Keyword

nonn,base

Author

Jaroslav Krizek, Jan 22 2013

Status

approved