|
Search: id:A161197
|
|
|
| A161197 |
|
Smallest Honaker prime A033548 with digit sum prime(n), or 0 if no such prime exists. |
|
+0
1
|
|
| 0, 0, 131, 2221, 263, 1039, 2591, 2719, 4397, 57089, 79609, 479881, 2557967, 1299499, 8796629, 49979249, 349929779, 753987769, 1397989867
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
If instead the sequence is the least Honaker prime which digit sum a(n) then the terms would begin:
0, 0, 0, 0, 131, 0, 2221, 2141, 0, 6301, 263, 0, 1039, 1049, 0, 457, 2591, 0, 2719, 2729, 0, 3559,
4397, 0, 17359, 17189, 0, 37783, 57089, 0, 79609, 174767, 0, 324799, 349919, 0, 479881, 479783, 0,
879673, 2557967, 0, 1299499, 5487497, 0, 5487697, 8796629, 0, 14657899, 23879489, 0, 47678893,
49979249, 0, 67669687, 139579499, 0, 176937979, 349929779, 0, 753987769, 753987779, 0, 1397989819,
1397778887, 0, 1397989867, ..., . [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 08 2009]
|
|
FORMULA
|
a(n) = min A033548(k): A007953(A033548(k)) = A000040(n). [R. J. Mathar, (mathar(AT)strw.leidenuniv.nl), Jun 16 2009]
|
|
EXAMPLE
|
The digit sums of A033548(n) are 5,11,16,13,14,11,5,11,11,14,14,16,8,7,14,11,17,17...
The first occurrence of the primes 5,7,11,13,... is at n=1,14,2,.., so the sequence
displays A033548(1), A033548(14), A033548(2),...
|
|
MATHEMATICA
|
t = Table[0, {100}]; c = 1; p = 2; While[p < 35*10^8, a = Plus @@ IntegerDigits@ c; b = Plus @@ IntegerDigits@ p; If[a < 101 && a == b && t[[a]] == 0, t[[a]] = p; Print[{a, p}]]; c++; p = NextPrime@p]; t[[ # ]] & /@ Prime@ Range@ 19 [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 08 2009]
|
|
CROSSREFS
|
A033548
Sequence in context: A142807 A103834 A144247 this_sequence A104596 A091743 A066621
Adjacent sequences: A161194 A161195 A161196 this_sequence A161198 A161199 A161200
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Lekraj Beedassy (blekraj(AT)yahoo.com), Jun 06 2009
|
|
EXTENSIONS
|
a(12)-a(19) from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 08 2009
Simplified definition, added examples - R. J. Mathar, (mathar(AT)strw.leidenuniv.nl), Jun 16 2009
|
|
|
Search completed in 0.002 seconds
|
