A048148 Distinct elements of A045948.

1, 2, 4, 12, 24, 120, 360, 720, 5040, 10080, 30240, 332640, 1663200, 3326400, 43243200, 129729600, 259459200, 4410806400, 30875644800, 586637251200, 1173274502400, 26985313555200, 134926567776000, 404779703328000, 11738611396512000, 363896953291872000

Offset

1,2

Comments

A001222(a(n)) = n - 1. - Eric Desbiaux, Apr 05 2018

Links

Michael De Vlieger, Table of n, a(n) for n = 1..237

Formula

A025476(n) = a(n+1) / a(n). - Eric Desbiaux, Jun 22 2013

Mathematica

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 *)

Crossrefs

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

Sequence in context: A066843 A051905 A051426 * A080375 A136253 A266079

Adjacent sequences: A048145 A048146 A048147 * A048149 A048150 A048151

Keyword

nonn

Author

Labos Elemer

Extensions

More terms from James A. Sellers, May 03 2000

More terms from Michael De Vlieger, Aug 01 2017

Status

approved