A094162 Where n first appears in A093320.

1, 6, 26, 78, 390, 2262, 7878, 30966, 154830, 890214, 3127566, 15637830

Offset: 1

Author

Robert G. Wilson v, May 04 2004

Keywords

• nonn
• more

Crossrefs

Cf. A093320.

Programs

Mathematica

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}]; b

Extensions

a(12) from Michael S. Branicky, Jun 24 2025