A106761 - OEIS

%I #9 Sep 08 2022 08:45:18

%S 499,769,787,859,877,967,1399,1489,1579,1597,1669,1759,1777,1867,1993,

%T 2389,2659,2677,2749,2767,2857,3469,3559,3739,3793,3847,3919,4099,

%U 4297,4549,4567,4639,4657,4729,4783,4909,5179,5197,5449,5557,5647,5683,5737

%N Primes with digit sum = 22.

%H Vincenzo Librandi, <a href="/A106761/b106761.txt">Table of n, a(n) for n = 1..6500</a>

%t Select[Prime[Range[100000]], Total[IntegerDigits[#]]==22 &] (* _Vincenzo Librandi_, Jul 08 2014 *)

%o (Magma) [p: p in PrimesUpTo(7000) | &+Intseq(p) eq 22]; // _Vincenzo Librandi_, Jul 08 2014

%o (PARI) select(x->sumdigits(x)==22, primes(1000)) \\ _Michel Marcus_, Jul 08 2014

%Y Cf. similar sequences listed in A244918.

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 16 2005