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 this_sequence A068830 A033417 A088866

Adjacent sequences: A094495 A094496 A094497 this_sequence A094499 A094500 A094501

nonn

Labos E. (labos(AT)ana.sote.hu), Jun 02 2004