%I A108777
%S A108777 10,40,75,88,300,500,640,4100,8300
%N A108777 Numbers n such that a^t + b^t + c^t + ... is prime, where a*b*c* ...
is the prime factorization of n with multiplicity and t is the reversal
of n.
%e A108777 a(3)=75 because 75=3*5^2 and 75 reversed is 57 and 3^57 + 5^57 + 5^57
= 13877787807816026798194477932746894440813, a prime.
%t A108777 fQ[n_] := PrimeQ[Plus @@ (Flatten[ Table[ #[[1]], {#[[2]]}] & /@ FactorInteger[n]]^FromDigits[
Reverse[ IntegerDigits[ n]] ])]; Do[ If[ fQ[n], Print[n]], {n, 2200}]
(from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2005)
%Y A108777 Cf. A082813.
%Y A108777 Sequence in context: A055233 A104045 A102546 this_sequence A000132 A060317
A033583
%Y A108777 Adjacent sequences: A108774 A108775 A108776 this_sequence A108778 A108779
A108780
%K A108777 base,more,nonn
%O A108777 1,1
%A A108777 Jason Earls (zevi_35711(AT)yahoo.com), Jun 27 2005
%E A108777 300, 500, 640 from Robert G. Wilson v, Jun 27 2005
%E A108777 4100 and 8300 from Hans Havermann, Jun 29 2005
|