%I A099069
%S A099069 1,2,3,19,35497
%N A099069 Numbers n such that n=prime(d_1*d_2*...*d_k)-phi(d_1+d_2+...+d_k) where 
               d_1 d_2 ... d_k is the decimal expansion of n.
%H A099069 C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_279.htm">
               Puzzle 279</a>The Prime Puzzles & Problems connection.
%e A099069 35497 is in the sequence because 35497=prime(3*5*4*9*7)-phi(3+5+4+9+7).
%t A099069 Do[h=IntegerDigits[n];l=Length[h];If[ !MemberQ[h, 0]&&n==Prime[Product[h[[k]], 
               {k, l}]]-EulerPhi[Sum[h[[k]], {k, l}]], Print[n]], {n, 6000000}]
%Y A099069 Cf. A099067, A099068, A097223, A097227.
%Y A099069 Sequence in context: A032077 A014547 A066735 this_sequence A038584 A108022 
               A108884
%Y A099069 Adjacent sequences: A099066 A099067 A099068 this_sequence A099070 A099071 
               A099072
%K A099069 base,more,nonn
%O A099069 1,2
%A A099069 Farideh Firoozbakht (baran4560(AT)yahoo.com), Oct 29 2004