%I A071394
%S A071394 4,6,33,335,355,3073,8408,64690,481044,1304693,1304719,3524318,3524654,
%T A071394 9559785,9559905,70115803,189963234,189963918,514278263,1394194660,
%U A071394 3779856591,10246935974,75370122456,204475052725,204475053325
%N A071394 Numbers n divisible by pi(n) [A057809] with prime pi(n); i.e. largest 
               prime factor of n equals pi(n).
%e A071394 pi(8408) = 1051 and 8408 = 2.2.2.'1051'.
%t A071394 c = 0; lpf[n_] := If[ PrimeQ[n], c++; n, Transpose[ FactorInteger[n]][[1, 
               -1]]]; Do[ If[ lpf[n] == c, Print[n]], {n, 2, 10^7}]
%Y A071394 Cf. A000720, A006530.
%Y A071394 Sequence in context: A078250 A087299 A164127 this_sequence A137021 A092187 
               A092765
%Y A071394 Adjacent sequences: A071391 A071392 A071393 this_sequence A071395 A071396 
               A071397
%K A071394 nonn
%O A071394 1,1
%A A071394 Jason Earls (zevi_35711(AT)yahoo.com), Jun 12 2002
%E A071394 Edited and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 13 
               2002
%E A071394 More terms from Hans Havermann (pxp(AT)rogers.com), Jul 02 2002