|
Search: id:A070248
|
|
|
| A070248 |
|
Palindromic primes with digit sum 7. |
|
+0
5
|
|
| 7, 151, 313, 10501, 11311, 30103, 1201021, 3001003, 100050001, 100131001, 101030101, 110111011, 111010111, 10000500001, 1100011100011, 1100101010011, 100020010020001
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[p = Join[ IntegerDigits[n], Reverse[ Drop[ IntegerDigits[n], -1]]]; q = Plus @@ p; If[ PrimeQ[ FromDigits[p]] && q == 7, Print[ FromDigits[p]]], {n, 1, 10^7}]
|
|
CROSSREFS
|
Cf. A002385, A070247 & A070249.
Sequence in context: A064624 A048935 A152552 this_sequence A159659 A100868 A006761
Adjacent sequences: A070245 A070246 A070247 this_sequence A070249 A070250 A070251
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), May 05 2002
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), May 15 2002
|
|
|
Search completed in 0.002 seconds
|
