1,1

A096917(n)*A096918(n)*a(n) = A007304(n); A096917(n) < A096918(n) < a(n);

a(n) = A006530(A007304(n)).

Table of n, a(n) for n=1..70.

f[n_]:=Last/@FactorInteger[n]=={1, 1, 1}; f1[n_]:=Min[First/@FactorInteger[n]]; f2[n_]:=Max[First/@FactorInteger[n]]; lst={}; Do[If[f[n], AppendTo[lst, f2[n]]], {n, 0, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Apr 10 2010 *)

Sequence in context: A076546 A167372 A023590 * A023594 A357099 A277777

Adjacent sequences: A096916 A096917 A096918 * A096920 A096921 A096922

nonn

Reinhard Zumkeller, Jul 15 2004

approved