The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A214837 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A214837

Primes not expressible as the sum of a prime and its digit sum.
(history; published version)

#20 by Peter Luschny at Thu Aug 26 08:54:44 EDT 2021

STATUS

reviewed

approved

#19 by Michel Marcus at Thu Aug 26 03:44:13 EDT 2021

STATUS

proposed

reviewed

#18 by Georg Fischer at Thu Aug 26 03:20:34 EDT 2021

STATUS

editing

proposed

#17 by Georg Fischer at Thu Aug 26 03:20:28 EDT 2021

COMMENTS

Complement of Primes not in A048520.

STATUS

approved

editing

#16 by T. D. Noe at Sun May 05 13:49:39 EDT 2013

STATUS

proposed

approved

#15 by Jayanta Basu at Fri May 03 23:24:03 EDT 2013

STATUS

editing

proposed

Discussion

Fri May 03

23:40

Alonso del Arte: Technically there's nothing wrong with the name "l1", but you have to admit that it looks a lot like the number 11.

23:48

Jayanta Basu: Yes, I think I should have used "list1" instead of just "l1". I'll  be careful with my naming routine in the future.

#14 by Alonso del Arte at Fri May 03 20:29:45 EDT 2013

EXAMPLE

19 is in the list since there exists no prime p such that p+digit sum of p = 19.

MATHEMATICA

l1primeList = Prime[Range[81]]; Complement[l1, primeList, Sort[Select[Table[p + Total[IntegerDigits[p]], {p, l1 primeList}], PrimeQ]]]

STATUS

proposed

editing

Discussion

Fri May 03

20:44

Alonso del Arte: There are at least two problems with the Mathematica program: some of the names are confusing (e.g., the "eleven"), and it triggers several error messages without giving any results.

23:23

Jayanta Basu: The name given to the list of primes was l1, a short form of list1, and not 11. I try to give small names for lists as they are used several times in a program. And the program ran quite well in my computer. However the new name primeList works fine with me.

#13 by Jayanta Basu at Fri May 03 15:08:44 EDT 2013

STATUS

editing

proposed

#12 by Jayanta Basu at Fri May 03 15:08:00 EDT 2013

NAME

allocated for Jayanta BasuPrimes not expressible as the sum of a prime and its digit sum.

DATA

2, 3, 5, 7, 11, 19, 23, 31, 37, 41, 43, 53, 59, 67, 71, 89, 97, 101, 109, 127, 131, 139, 149, 151, 157, 167, 179, 193, 197, 199, 211, 223, 227, 229, 233, 239, 251, 257, 263, 269, 277, 283, 311, 313, 331, 337, 347, 349, 353, 359, 367, 373, 379, 389, 401, 419

OFFSET

1,1

COMMENTS

Complement of A048520.

EXAMPLE

19 is in the list since there exists no prime p such that p+digit sum of p=19.

MATHEMATICA

l1=Prime[Range[81]]; Complement[l1, Sort[Select[Table[p+Total[IntegerDigits[p]], {p, l1}], PrimeQ]]]

CROSSREFS

Cf. A006378, A048520.

KEYWORD

allocated

nonn,base

AUTHOR

Jayanta Basu, May 03 2013

STATUS

approved

editing

#11 by Jayanta Basu at Fri May 03 15:08:00 EDT 2013

NAME

allocated for Jayanta Basu

KEYWORD

recycled

allocated