The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A307388 Length of the period of decimal representation of Product_{k=1..n} A038111(k)/A038110(k). 0
 1, 27, 729, 59049, 43046721, 31381059609, 68630377364883, 150094635296999121, 328256967394537077627, 717897987691852588770249, 4710128697246244834921603689, 92709463147897837085761925410587, 3649600726280146254718103955713167842 (list; graph; refs; listen; history; text; internal format)
 OFFSET 9,2 COMMENTS The offset is 9 since for 0 < n < 5, the product is an integer, and for 4 < n < 9 the decimal expansion ends with zeros. LINKS Table of n, a(n) for n=9..21. Jamie Morken, Mathematica Stack Exchange question EXAMPLE For example for n=9 with (2/1) * (6/1) * (15/1) * (105/4) * (385/8) * (1001/16) * (17017/192) * (323323/3072) * (7436429/55296) = 2759414170256180364552625 / 154618822656 = 17846560482454.30745852273604315188195970323350694444444444444... so a(9) = 1. MATHEMATICA Primorial[n_] := Times @@ Prime[Range[n]] ClearAll[iter] ClearAll[fracPer, vp]; (*p-adic order*) vp[p_?PrimeQ, n_Integer] := Length@NestWhileList[#/p &, n/p, IntegerQ] - 1; (*fraction decimal expansion period*) fracPer[q_Integer] := 0; fracPer[q_Rational] := Module[{den, p2, p5}, den = Denominator[q]; p2 = vp[2, den]; p5 = vp[5, den]; den = den/2^p2/5^p5; If[den == 1, 0, MultiplicativeOrder[10, den]]]; iter[{periods_, frac_, n_}] := {{periods, fracPer[#]}, #, n + 1} &[ frac*Primorial[n]/EulerPhi[Primorial[Max[1, n - 1]]]]; Flatten@First@ Nest[iter, {0, Primorial[0]/EulerPhi[Primorial[0]], 0}, 50] CROSSREFS Cf. A038111, A038110, A051626, A058250. Sequence in context: A098838 A268015 A009971 * A046240 A042406 A279652 Adjacent sequences: A307385 A307386 A307387 * A307389 A307390 A307391 KEYWORD nonn,base AUTHOR Jamie Morken, Apr 06 2019 STATUS approved

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

Last modified April 23 03:30 EDT 2024. Contains 371906 sequences. (Running on oeis4.)