|
Search: id:A094162
|
|
| |
|
| 1, 6, 26, 78, 390, 2262, 7878, 30966, 154830, 890214, 3127566
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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}]
|
|
CROSSREFS
|
Cf. A093320.
Sequence in context: A135036 A166796 A001701 this_sequence A060101 A036422 A166214
Adjacent sequences: A094159 A094160 A094161 this_sequence A094163 A094164 A094165
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 04 2004
|
|
|
Search completed in 0.002 seconds
|
