login
n * (smallest prime greater than largest prime factor of n).
3

%I #10 Sep 16 2015 11:52:27

%S 2,6,15,12,35,30,77,24,45,70,143,60,221,154,105,48,323,90,437,140,231,

%T 286,667,120,175,442,135,308,899,210,1147,96,429,646,385,180,1517,874,

%U 663,280,1763,462,2021,572,315,1334,2491,240,539,350,969,884,3127,270

%N n * (smallest prime greater than largest prime factor of n).

%C a(n) = n * A117366(n);

%C A000005(a(n)) = 2*A000005(n) = A062011(n).

%H Reinhard Zumkeller, <a href="/A119416/b119416.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = n * A151800(A006530(n)). - _Reinhard Zumkeller_, Apr 06 2015

%e a(10) = (2*5)*7.

%t Insert[Table[n*Prime[PrimePi[FactorInteger[n][[ -1]][[1]]] + 1],{n,2,100}], 2, 1] (* _Stefan Steinerberger_, May 18 2006 *)

%o (Haskell)

%o a119416 n = n * (a151800 $ a006530 n) -- _Reinhard Zumkeller_, Apr 06 2015

%Y Cf. A006530, A087560.

%Y Cf. A151800.

%K nonn

%O 1,1

%A _Reinhard Zumkeller_, May 17 2006