OFFSET
1,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..41771 (first 2000 terms from Vincenzo Librandi)
FORMULA
Intersection of A000040 (primes) and A166311 (digit sum = 11), also equals { p in A000040 | A007953(p) = 11 }. - M. F. Hasler, Mar 09 2022
MATHEMATICA
Select[Prime[Range[100000]], Total[IntegerDigits[#]]==11 &] (* Vincenzo Librandi, Jul 08 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(10000) | &+Intseq(p) eq 11]; // Vincenzo Librandi, Jul 08 2014
(PARI) select( {is_A106754(n)=sumdigits(n)==11&&isprime(n)}, primes([1, 3333])) \\ M. F. Hasler, Mar 09 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2005
STATUS
approved