OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..3960
MATHEMATICA
Select[Prime[Range[3000000]], Total[IntegerDigits[#]]==61 &] (* Vincenzo Librandi, Jul 09 2014 *)
PROG
(PARI) isok(n) = isprime(n) && (sumdigits(n) == 61); \\ Michel Marcus, Oct 09 2013
(Magma) [p: p in PrimesUpTo(30000000) | &+Intseq(p) eq 61]; // Vincenzo Librandi, Jul 09 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 16 2005
EXTENSIONS
More terms from Joshua Zucker, May 17 2006
More terms from Michel Marcus, Oct 05 2013
STATUS
approved