A048148 - OEIS

%I #34 Aug 16 2024 08:37:01

%S 1,2,4,12,24,120,360,720,5040,10080,30240,332640,1663200,3326400,

%T 43243200,129729600,259459200,4410806400,30875644800,586637251200,

%U 1173274502400,26985313555200,134926567776000,404779703328000,11738611396512000,363896953291872000

%N Distinct elements of A045948.

%C A001222(a(n)) = n - 1. - _Eric Desbiaux_, Apr 05 2018

%H Chai Wah Wu, <a href="/A048148/b048148.txt">Table of n, a(n) for n = 1..412</a> (terms 1..237 from Michael De Vlieger)

%F A025476(n) = a(n+1) / a(n). - _Eric Desbiaux_, Jun 22 2013

%t Map[Function[m, Exp[Sum[MangoldtLambda@ n, {n, m}]]/Product[x, {x, Prime@ Range@ PrimePi@ m}]], Select[Range[10^3], Or[# == 1, And[PrimePowerQ@ #, ! PrimeQ@ #]] &] ] (* _Michael De Vlieger_, Aug 01 2017, after _Fred Daniel Kline_ at A045948 *)

%o (Python)

%o # uses program from A025476

%o from math import prod

%o def A048148(n): return prod(A025476(i) for i in range(1,n)) # _Chai Wah Wu_, Aug 15 2024

%Y Cf. A003418, A034386, A002110, A000142, A049536.

%K nonn

%O 1,2

%A _Labos Elemer_

%E More terms from _James A. Sellers_, May 03 2000

%E More terms from _Michael De Vlieger_, Aug 01 2017