The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A329815 Number of distinct terms in the first difference sequence of the reduced residue system of the n-th primorial. 0
 0, 1, 3, 5, 7, 10, 13, 16, 20, 23, 29 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS This sequence is the number of distinct terms in the first difference sequence for rows n in A286941 and A309497. LINKS Jamie Morken, Mathematica Stack Exchange question FORMULA a(n) = A061498(A002110(n)). a(n) <= A048670(n)/2. EXAMPLE For n = 3, A002110(3) = 30, RRS = {1, 7, 11, 13, 17, 19, 23, 29}, dRRS = {6, 4, 2, 4, 2, 4, 6}, so a(3) = 3. MATHEMATICA Primorial[n_] := Times @@ Prime[Range[n]] Table[Length@Union@Differences@Select[Range@Primorial[n], CoprimeQ[#, Primorial[n]] &], {n, 7}] (* after Michael De Vlieger Jul 15 2017 from A061498 *) PROG (PARI) f(n) = {my(va = select(x->(gcd(n, x)==1), [1..n])); vd = vector(#va-1, k, va[k+1] - va[k]); #Set(vd); } \\ A061498 a(n) = f(prod(i=1, n, prime(i))); \\ Michel Marcus, Dec 19 2019 CROSSREFS Cf. A061498, A048670, A309497, A286941. Sequence in context: A036604 A001768 A327672 * A089108 A186355 A029899 Adjacent sequences:  A329812 A329813 A329814 * A329816 A329817 A329818 KEYWORD nonn,hard,more AUTHOR Jamie Morken, Nov 21 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 6 02:13 EDT 2020. Contains 335475 sequences. (Running on oeis4.)