%I A074210
%S A074210 1,4,12,30,272,4717,5402,18487,20115,28372,33998,111040,115170,456975,
%T A074210 821586,1874660,4029676,4060029,59497900,232668002,313128068,529436220
%N A074210 Number of primes <= n is equal to the sum of primes from the smallest 
               prime factor of n to the largest prime factor of n.
%C A074210 No more terms through 20000000. - Ryan Propper (rpropper(AT)stanford.edu), 
               Jun 03 2006
%e A074210 pi(272) = 58 and 272 = 2^4*17 and 2+3+5+7+11+13+17 = 58. ?
%t A074210 Do[l = First /@ FactorInteger[n]; m = Range[First[l], Last[l]]; If[Plus 
               @@ Select[m, PrimeQ] == PrimePi[n], Print[n]], {n, 2*10^7}] - Ryan 
               Propper (rpropper(AT)stanford.edu), Jun 03 2006
%Y A074210 Cf. A000720, A074036.
%Y A074210 Sequence in context: A006802 A068055 A074252 this_sequence A005289 A037255 
               A027658
%Y A074210 Adjacent sequences: A074207 A074208 A074209 this_sequence A074211 A074212 
               A074213
%K A074210 more,nonn
%O A074210 1,2
%A A074210 Jason Earls (zevi_35711(AT)yahoo.com), Sep 19 2002
%E A074210 More terms from Ryan Propper (rpropper(AT)stanford.edu), Jun 03 2006
%E A074210 a(19)-a(22) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Oct 
               12 2008