The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A048520 Primes expressible as the sum of a prime plus its digit sum. 14

%I

%S 13,17,29,47,61,73,79,83,103,107,113,137,163,173,181,191,241,271,281,

%T 293,307,317,383,397,409,433,439,443,499,521,523,563,577,607,631,641,

%U 709,743,757,809,821,859,877,881,967,1019,1063,1069,1103,1163,1181

%N Primes expressible as the sum of a prime plus its digit sum.

%H M. F. Hasler, <a href="/A048520/b048520.txt">Table of n, a(n) for n = 1..10000</a>, Nov 08 2018

%e a(15) = 181 which is 167 + (1+6+7).

%t Sort[Select[Table[p=Prime[n];p+Total[IntegerDigits[p]],{n,195}],PrimeQ]] (* _Jayanta Basu_, May 03 2013 *)

%o (PARI) is_A048520(n)=#select(p->p+sumdigits(p)==n,primes([n-9*#digits(n),n-2]))&&isprime(n) \\ _M. F. Hasler_, Nov 08 2018

%Y Cf. A007953, A047791, A048519.

%K nonn,base

%O 1,1

%A _Patrick De Geest_, May 15 1999

%E Offset corrected to 1 by _M. F. Hasler_, Nov 08 2018

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 September 29 06:29 EDT 2020. Contains 337425 sequences. (Running on oeis4.)