A048148 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

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

LINKS

Chai Wah Wu, Table of n, a(n) for n = 1..412 (terms 1..237 from Michael De Vlieger)

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

PROG

(Python)

# uses program from A025476

from math import prod

def A048148(n): return prod(A025476(i) for i in range(1, n)) # Chai Wah Wu, Aug 15 2024

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 Sellers, May 03 2000

More terms from Michael De Vlieger, Aug 01 2017

STATUS

approved