login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A163394 The odd part of Minkowski(n)/n! 0
1, 1, 1, 1, 1, 3, 1, 9, 9, 15, 3, 9, 3, 945, 135, 27, 27, 405, 45, 8505, 1701, 66825, 6075, 18225, 6075, 995085, 76545, 8505, 1215, 18225, 1215, 841995, 841995, 6506325, 382725, 32805, 3645, 850797675, 44778825, 3444525 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,6

LINKS

Table of n, a(n) for n=0..39.

FORMULA

a(n) = A000265(A163176(n)). - Michel Marcus, Jun 17 2019

MAPLE

a := proc(n) local L, p;

L := proc(n, p, r) local q, s, m; m:=n-r; q:=p-r; s:=0;

do if q > n then break fi; s := s+iquo(m, q);

q := q*p od; s end; mul(p^(L(n, p, 1)-L(n, p, 0)),

p = select(isprime, [$3..n])); end

MATHEMATICA

L[n_, p_, r_] := Module[{q, s, m}, m = n-r; q = p-r; s = 0; While[True, If[ q > n, Break[]]; s = s + Quotient[m, q]; q = q*p]; s];

a[n_] := Product[p^(L[n, p, 1]-L[n, p, 0]), {p, Select[Range[3, n], PrimeQ] }];

Table[a[n], {n, 0, 39}] (* Jean-Fran├žois Alcover, Jun 17 2019 *)

CROSSREFS

Cf. A000265, A053657, A163176.

Sequence in context: A075498 A105729 A104750 * A225469 A095069 A184061

Adjacent sequences:  A163391 A163392 A163393 * A163395 A163396 A163397

KEYWORD

nonn

AUTHOR

Peter Luschny, Jul 26 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 21 16:24 EDT 2019. Contains 328302 sequences. (Running on oeis4.)