|
|
A070250
|
|
Palindromic primes with digit sum 10.
|
|
4
|
|
|
181, 12421, 30403, 1008001, 1114111, 1212121, 100161001, 100404001, 101060101, 101141101, 102040201, 102202201, 104000401, 130020031, 140000041, 10001610001, 10013031001, 10100600101, 10102220101, 10130003101
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[p = IntegerDigits[ Prime[n]]; If[ Plus @@ p == 10 && Reverse[p] == p, Print[ Prime[n]]], {n, 1, 10^10}]
Select[Prime[Range[4607*10^5]], PalindromeQ[#]&&Total[IntegerDigits[#]]==10&] (* Harvey P. Dale, May 28 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|