id:A046704 - OEIS Search Results

Search: id:A046704

Displaying 1-1 of 1 results found.

page 1

Additive primes: sum of digits is a prime.

+0
28

2, 3, 5, 7, 11, 23, 29, 41, 43, 47, 61, 67, 83, 89, 101, 113, 131, 137, 139, 151, 157, 173, 179, 191, 193, 197, 199, 223, 227, 229, 241, 263, 269, 281, 283, 311, 313, 317, 331, 337, 353, 359, 373, 379, 397, 401, 409, 421, 443, 449, 461, 463, 467, 487, 557, 571, 577, 593 (list; graph; listen)

	OFFSET	`1,1`
	MATHEMATICA	`Select[Prime[Range[100000]], PrimeQ[Apply[Plus, IntegerDigits[ # ]]]&]`
	PROGRAM	`(PARI) isA046704(n)={local(s, m); s=0; m=n; while(m>0, s=s+m%10; m=floor(m/10)); isprime(n) & isprime(s)} [From Michael Porter (michael_b_porter(AT)yahoo.com), Oct 18 2009]`
	CROSSREFS	`Indices of additive primes are in A075177.` `Cf. A046703.` `Sequence in context: A087521 A078403 A129945 this_sequence A089392 A089695 A070027` `Adjacent sequences: A046701 A046702 A046703 this_sequence A046705 A046706 A046707`
	KEYWORD	`base,nonn`
	AUTHOR	`Felice Russo (felice.russo(AT)katamail.com)`

page 1

Search completed in 0.002 seconds

Last modified November 25 20:09 EST 2009. Contains 167514 sequences.

AT&T Labs Research