login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A107579 Primes with digit sum 10. 8
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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified June 25 12:01 EDT 2017. Contains 288710 sequences.