proposed

approved

editing

proposed

Smallest prime- factor of n-th product of 3 distinct primes.

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

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, f1[n]]], {n, 0, 7!}]; lst [From _ (* _Vladimir Joseph Stephan Orlovsky_, Apr 10 2010] *)

approved

editing

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, f1[n]]], {n, 0, 7!}]; lst [From _Vladimir Joseph Stephan Orlovsky (4vladimir(AT)gmail.com), _, Apr 10 2010]

OEIS Server: https://oeis.org/edit/global/876

_Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), _, Jul 15 2004

OEIS Server: https://oeis.org/edit/global/246

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

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, f1[n]]], {n, 0, 7!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Apr 10 2010]

nonn,new

nonn

nonn,new

nonn

Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystemsgmail.com), Jul 15 2004

Smallest prime-factor of n-th product of 3 distinct primes.

2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 3, 2, 2, 3, 2, 3, 2, 2, 2, 2, 2, 3, 2, 3, 2, 2, 2, 5, 3, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 5, 3, 2, 2, 3, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 2, 5, 2, 2, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 2, 3, 5, 2, 2, 2, 3, 2, 5, 2, 3, 2, 2, 3, 2, 3, 2

1,1

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

a(n) = A020639(A007304(n)).

nonn

Reinhard Zumkeller (reinhard.zumkeller(AT)lhsystems.com), Jul 15 2004

approved