A106787 Primes with digit sum = 61.

8989999, 8999899, 9989899, 9999889, 16999999, 17989999, 17999899, 18889999, 18899899, 18899989, 18979999, 18989899, 18998899, 18999889, 18999979, 18999997, 19889899, 19899889, 19979899, 19987999, 19988989, 19989997, 19999789, 19999897, 26998999, 27799999

Offset: 1

Author

Zak Seidov, May 16 2005

Keywords

• nonn
• base

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..3960

Crossrefs

Cf, similar sequences listed in A244918.

Programs

Magma

[p: p in PrimesUpTo(30000000) | &+Intseq(p) eq 61]; // Vincenzo Librandi, Jul 09 2014

Mathematica

Select[Prime[Range[3000000]], Total[IntegerDigits[#]]==61 &] (* Vincenzo Librandi, Jul 09 2014 *)

PARI

isok(n) = isprime(n) && (sumdigits(n) == 61); \\ Michel Marcus, Oct 09 2013

Extensions

More terms from Joshua Zucker, May 17 2006

More terms from Michel Marcus, Oct 05 2013