|
%I #2 Mar 30 2012 17:31:00
%S 1,6,26,78,390,2262,7878,30966,154830,890214,3127566
%N Where n first appears in A093320.
%t PrimeFactors[n_Integer] := Flatten[ Table[ # [[1]], {1}] & /@ FactorInteger[n]]; a[1] = 1; a[n_] := a[n] = (Plus @@ (a[ # ] & /@ PrimePi[ PrimeFactors[n]])); b = Table[0, {12}]; Do[c = a[n]; If[ b[[c]] == 0, b[[c]] = n]], {n, 11500000}]
%Y Cf. A093320.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, May 04 2004
|
