login
A070831
Palindromic primes with digit sum = 11.
1
191, 353, 13331, 1123211, 1221221, 1303031, 1311131, 3103013, 110232011, 111050111, 112030211, 112111211, 121111121, 130030031, 301111103, 10000900001, 10002520001, 10013131001, 10111311101, 10301110301
OFFSET
1,1
COMMENTS
Conjecture: The sequence is unbounded.
MATHEMATICA
Do[p = Join[ IntegerDigits[n], Reverse[ Drop[ IntegerDigits[n], -1]]]; q = Plus @@ p; If[ PrimeQ[ FromDigits[p]] && q == 11, Print[ FromDigits[p]]], {n, 1, 10^6}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, May 15 2002
STATUS
approved