OFFSET
1,1
LINKS
Delbert L. Johnson, Table of n, a(n) for n = 1..20000
EXAMPLE
313 = 296 + (2+9+6) and 313 = 305 + (3+0+5).
MATHEMATICA
Transpose[Select[Tally[Select[#+Total[IntegerDigits[#]]&/@ Range[ 5000], PrimeQ]], #[[2]]==2&]][[1]] (* Harvey P. Dale, May 09 2013 *)
PROG
(Python)
from collections import Counter
from sympy import isprime
def a_list(upto):
return [i for i, j in Counter([i+sum(map(int, str(i))) for i in range(upto)]).items() if j>1 and isprime(i)]
print(a_list(4000)) # Nicholas Stefan Georgescu, Mar 02 2023
CROSSREFS
KEYWORD
nonn,base,nice
AUTHOR
Patrick De Geest, May 15 1999
EXTENSIONS
Corrected and extended by Harvey P. Dale, May 09 2013
STATUS
approved