This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A094162 #9 Jun 25 2025 16:15:07
%S A094162 1,6,26,78,390,2262,7878,30966,154830,890214,3127566,15637830
%N A094162 Where n first appears in A093320.
%t A094162 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
%Y A094162 Cf. A093320.
%K A094162 nonn,more
%O A094162 1,2
%A A094162 _Robert G. Wilson v_, May 04 2004
%E A094162 a(12) from _Michael S. Branicky_, Jun 24 2025