|
| |
|
|
A033548
|
|
Honaker primes: primes P(k) such that sum of digits of P(k) equals sum of digits of k.
|
|
23
| |
|
|
131, 263, 457, 1039, 1049, 1091, 1301, 1361, 1433, 1571, 1913, 1933, 2141, 2221, 2273, 2441, 2591, 2663, 2707, 2719, 2729, 2803, 3067, 3137, 3229, 3433, 3559, 3631, 4091, 4153, 4357, 4397, 4703, 4723, 4903, 5009, 5507, 5701, 5711, 5741, 5801, 5843
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| A090431(A049084(a(n))) = 0.
|
|
|
REFERENCES
| Proposed by G. L. Honaker, Jr. (honak3r(AT)gmail.com)
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
|
|
|
EXAMPLE
| 131 is the 32nd prime and sum of digits of both is 5.
|
|
|
MATHEMATICA
| Prime[ Select[ Range[ 2000 ], Apply[ Plus, IntegerDigits[ # ] ] == Apply[ Plus, IntegerDigits[ Prime[ # ] ] ] & ] ] (* Santi Spadaro (spados(AT)katamail.com), Oct 14 2001 *)
Select[ Prime@ Range@ 5927, Plus @@ IntegerDigits@ # == Plus @@ IntegerDigits@ PrimePi@ # &] (* Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 07 2009 *)
nn=800; Transpose[Select[Thread[{Prime[Range[nn]], Range[nn]}], Total[IntegerDigits[First[#]]]== Total[ IntegerDigits[ Last[#]]]&]][[1]] (* Harvey P. Dale, June 13 2011 *)
|
|
|
CROSSREFS
| Cf. A033549.
Cf. A072439.
Sequence in context: A107001 A142616 A132249 * A117477 A089316 A142129
Adjacent sequences: A033545 A033546 A033547 * A033549 A033550 A033551
|
|
|
KEYWORD
| nonn,base,nice
|
|
|
AUTHOR
| Calculated by Jud McCranie (JudMcCranie(AT)ugaalum.uga.edu)
|
|
|
EXTENSIONS
| More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 07 2009
|
| |
|
|
