cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A221699 #14 Jan 31 2024 18:37:29
%S A221699 11,12,14,16,20,21,23,25,29,30,32,34,38,41,43,47,49,50,52,56,58,61,65,
%T A221699 67,70,74,76,83,85,89,92,94,98,111,112,114,116,121,141,161,203,205,
%U A221699 211,230,250,302,320,411,502,520,611,1111,1112,1114,1116,1121,1141,1161
%N A221699 Numbers with property that each sum any pair of digits is prime.
%C A221699 Supersequence of A091939. Subsequence of A182175.
%H A221699 Vincenzo Librandi, <a href="/A221699/b221699.txt">Table of n, a(n) for n = 1..145</a>
%e A221699 Number 203 is a term because 2+3=5, 2+0=2, 3+0=3 (primes).
%t A221699 fQ[n_] := Module[{d = IntegerDigits[n]}, Union[PrimeQ[Plus @@@ Union[Subsets[d, {2}]]]] == {True}]; Select[Range[6000], fQ] (* _T. D. Noe_, Jan 24 2013 *)
%t A221699 Select[Range[10,1200],AllTrue[Total/@Subsets[IntegerDigits[#],{2}],PrimeQ]&] (* _Harvey P. Dale_, Jan 31 2024 *)
%Y A221699 Cf. A172508, A091939, A182175.
%K A221699 nonn,base
%O A221699 1,1
%A A221699 _Jaroslav Krizek_, Jan 22 2013