OFFSET
1,3
COMMENTS
From Robert G. Wilson v, Jun 08 2009: (Start)
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, ..., . (End)
a(26) <= 29678788858889. - Donovan Johnson, Dec 29 2013
FORMULA
EXAMPLE
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 (* Robert G. Wilson v, Jun 08 2009 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Lekraj Beedassy, Jun 06 2009
EXTENSIONS
a(12)-a(19) from Robert G. Wilson v, Jun 08 2009
Simplified definition, added examples - R. J. Mathar, Jun 16 2009
a(20)-a(24) from Donovan Johnson, May 03 2010
a(25) from Donovan Johnson, Dec 29 2013
STATUS
approved