%I A033548
%S A033548 131,263,457,1039,1049,1091,1301,1361,1433,1571,1913,1933,2141,2221,
%T A033548 2273,2441,2591,2663,2707,2719,2729,2803,3067,3137,3229,3433,3559,3631,
%U A033548 4091,4153,4357,4397,4703,4723,4903,5009,5507,5701,5711,5741,5801,5843
%N A033548 Honaker primes: primes P(k) such that sum of digits of P(k) equals sum 
               of digits of k.
%C A033548 A090431(A049084(a(n))) = 0.
%D A033548 Proposed by G. L. Honaker, Jr. (honak3r(AT)gmail.com)
%H A033548 T. D. Noe, <a href="b033548.txt">Table of n, a(n) for n=1..1000</a>
%e A033548 131 is the 32nd prime and sum of digits of both is 5.
%t A033548 Prime[ Select[ Range[ 2000 ], Apply[ Plus, IntegerDigits[ # ] ] == Apply[ 
               Plus, IntegerDigits[ Prime[ # ] ] ] & ] ] from Santi Spadaro (spados(AT)katamail.com), 
               Oct 14 2001
%t A033548 Select[ Prime@ Range@ 5927, Plus @@ IntegerDigits@ # == Plus @@ IntegerDigits@ 
               PrimePi@ # &] [From Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 07 
               2009]
%Y A033548 Cf. A033549.
%Y A033548 Cf. A072439.
%Y A033548 Sequence in context: A107001 A142616 A132249 this_sequence A117477 A089316 
               A142129
%Y A033548 Adjacent sequences: A033545 A033546 A033547 this_sequence A033549 A033550 
               A033551
%K A033548 nonn,base,nice
%O A033548 1,1
%A A033548 Calculated by Jud McCranie (j.mccranie(AT)comcast.net)
%E A033548 More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 07 2009