

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



