|
|
A048148
|
|
Distinct elements of A045948.
|
|
4
|
|
|
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
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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)
from math import prod
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,changed
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|