This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A107579 Primes with digit sum 10. 7
 19, 37, 73, 109, 127, 163, 181, 271, 307, 433, 523, 541, 613, 631, 811, 1009, 1063, 1117, 1153, 1171, 1423, 1531, 1621, 1801, 2017, 2053, 2143, 2161, 2251, 2341, 2503, 2521, 3061, 3313, 3331, 3511, 4051, 4231, 5023, 5113, 6121, 6211, 6301, 8011, 8101 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Subset of A061237 and A117674. LINKS Vincenzo Librandi and Zak Seidov, Table of n, a(n) for n = 1..3000 (first 1000 terms from Vincenzo Librandi) MAPLE a:=proc(n) local nn: nn:=convert(n, base, 10): if isprime(n)=true and add(nn[j], j=1..nops(nn))=10 then n else end if end proc: seq(a(n), n=1..10^4); # Emeric Deutsch, Mar 06 2008 MATHEMATICA Select[Prime[Range[100000]], Total[IntegerDigits[#]]==10 &] (* Vincenzo Librandi, Jul 08 2014 *) PROG (MAGMA) [p: p in PrimesUpTo(10000) | &+Intseq(p) eq 10]; // Vincenzo Librandi, Jul 08 2014 (PARI) forprime(p=19, 8101, if(10==sumdigits(p), print(p", "))) \\ Zak Seidov, Oct 08 2016 CROSSREFS Cf. A061237. Cf. similar sequences listed in A244918. Sequence in context: A211821 A061237 A158293 * A245381 A050528 A257074 Adjacent sequences:  A107576 A107577 A107578 * A107580 A107581 A107582 KEYWORD nonn,base AUTHOR Zak Seidov, May 16 2005 EXTENSIONS Edited by N. J. A. Sloane, Feb 20 2009 at the suggestion of Pacha Nambi STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 14 04:44 EDT 2019. Contains 327995 sequences. (Running on oeis4.)