|
%I #27 Sep 11 2021 10:48:50
%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 Michael De Vlieger, <a href="/A048148/b048148.txt">Table of n, a(n) for n = 1..237</a>
%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 *)
%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
|
