OFFSET
1,1
COMMENTS
All terms = 11 mod 18.
LINKS
Zak Seidov, Table of n, a(n) for n = 1..7751
MAPLE
select(n -> isprime(n) and convert(convert(n, base, 10), `+`) = 47, [seq(18*n+11, n=10^4 .. 10^5)]); # Robert Israel, Jul 09 2014
MATHEMATICA
Select[Prime[Range[90000]], Total[IntegerDigits[#]]==47 &] (* Vincenzo Librandi, Jul 09 2014 *)
PROG
(Magma) [p: p in PrimesUpTo(800000) | &+Intseq(p) eq 47]; // Vincenzo Librandi, Jul 09 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2005
STATUS
approved