1,1
mif[x_]:=Part[Flatten[FactorInteger[x]], 1] Table[mif[16^w+81^w], {w, 1, 20}]
Cf. A082101, A094474-A094494.
Sequence in context: A051330 A106429 A126840 * A068830 A033417 A182690
Adjacent sequences: A094495 A094496 A094497 * A094499 A094500 A094501
nonn
Labos E. (labos(AT)ana.sote.hu), Jun 02 2004