A309497
Irregular triangle read by rows: T(n,k) = A060753(n)*k-A038110(n)*A286941(n,k).
Original entry on oeis.org
0, 1, 2, 1, 11, 2, 1, 8, 7, 14, 13, 4, 27, -18, 1, 4, 23, 26, 13, 32, 19, 22, 41, 44, 31, 18, 37, 24, 27, 46, 33, 36, 23, -6, -3, 16, 19, 38, 41, 12, -1, 2, -11, 8, 11, -2, 17, 4, -9, -6, 13, 16, 3, 22, 9, 12, 31, 34, 53, 8
Offset: 0
The triangle starts:
row1: 0;
row2: 1;
row3: 2, 1;
row4: 11, 2, 1, 8, 7, 14, 13, 4;
row5: 27, -18, 1, 4, 23, 26, 13, 32, 19, 22, 41, 44, 31, 18, 37, 24, 27, 46, 33, 36, 23, -6, -3, 16, 19, 38, 41, 12, -1, 2, -11, 8, 11, -2, 17, 4, -9, -6, 13, 16, 3, 22, 9, 12, 31, 34, 53, 8;
Cf.
A058250,
A005867,
A002110,
A038110,
A038111,
A060753,
A286941,
A058262,
A161527,
A083140,
A308121.
-
row[0] = 0; row[n_] := -(v = Numerator[Product[1 - 1/Prime[i], {i, 1, n}] / Prime[n]] * Select[Range[(p = Product[Prime[i], {i, 1, n}])], CoprimeQ[p, #] &]) + Denominator[Product[((pr = Prime[i]) - 1)/pr, {i, 1, n}]] * Range[Length[v]]; Table[row[n], {n, 0, 4}] // Flatten (* Amiram Eldar, Aug 10 2019 *)
A324550
Primes written in primorial base (A049345).
Original entry on oeis.org
10, 11, 21, 101, 121, 201, 221, 301, 321, 421, 1001, 1101, 1121, 1201, 1221, 1321, 1421, 2001, 2101, 2121, 2201, 2301, 2321, 2421, 3101, 3121, 3201, 3221, 3301, 3321, 4101, 4121, 4221, 4301, 4421, 5001, 5101, 5201, 5221, 5321, 5421, 6001, 6121, 6201, 6221, 6301, 10001, 10201, 10221, 10301, 10321, 10421, 11001, 11121, 11221
Offset: 1
-
a[n_] := Module[{k = Prime[n], p = 2, s = {}, r}, While[{k, r} = QuotientRemainder[k, p]; k != 0 || r != 0, AppendTo[s, r]; p = NextPrime[p]]; FromDigits[Reverse[s]]]; Array[a, 100] (* Amiram Eldar, Mar 06 2024 *)
-
A324550(n) = A049345(prime(n)); \\ For A049345, see under that entry.
A331118
Irregular triangle read by rows where row n lists primitive first differences in the reduced residue system of A002110(n).
Original entry on oeis.org
2, 2, 4, 2, 4, 6, 2, 4, 6, 8, 10, 2, 4, 6, 8, 10, 12, 14, 2, 4, 6, 8, 10, 12, 14, 16, 18, 22, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 34, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36
Offset: 1
Triangle begins:
n Row
1 2;
2 2, 4;
3 2, 4, 6;
4 2, 4, 6, 8, 10;
5 2, 4, 6, 8, 10, 12, 14;
6 2, 4, 6, 8, 10, 12, 14, 16, 18, 22;
7 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26;
8 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 34;
...
(Triangle is organized so that the D appear in columns.)
Row 1 = {2} because P(1) = 2 is prime and has only 2 itself in the cototient.
Row 2 = {2, 4} since the numbers {1, 5} are coprime to P(2) = 6, and their difference is 4.
Row 3 contains {2, 4, 6} since we encounter the run lengths 6 between 1 and 7, 4 between 7 and 11, and 2 between 11 and 13. The run lengths are repeated but no new lengths appear for P(3) = 30.
-
Table[Block[{r = 1, s = {}}, Do[If[GCD[i, P] == 1, If[FreeQ[s, #], AppendTo[s, #]] &[i - r]; r = i], {i, 3, P/If[P > 6, 2, 1/2], 2}]; Union@ s], {P, FoldList[Times, Prime@ Range@ 8]}] // Flatten
A286942
Irregular triangle read by rows: numbers 1 <= k <= (A002110(n) - 1) where gcd(k, A002110(n - 1)) = 1.
Original entry on oeis.org
1, 2, 1, 3, 5, 1, 5, 7, 11, 13, 17, 19, 23, 25, 29, 1, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 49, 53, 59, 61, 67, 71, 73, 77, 79, 83, 89, 91, 97, 101, 103, 107, 109, 113, 119, 121, 127, 131, 133, 137, 139, 143, 149, 151, 157, 161, 163, 167, 169, 173
Offset: 1
The triangle starts:
1, 2;
1, 3, 5;
1, 5, 7, 11, 13, 17, 19, 23, 25, 29
Example1:
To find row n of the irregular triangle A286942, take a running sum for each value in the irregular triangle row n-1 of A286941 with A002110(n-1) b-1 times, where b is the largest prime factor in A002110(n).
For example to find row 3 of A286942: Take a running sum for both 1 and 5 in row n-1 of A286941 with A002110(3-1)=6, 5-1=4 times, where b is the largest prime factor 5 in A002110(3).
Result:
1 5
7 11
13 17
19 23
25 29
Equal to row 3 of A286942: 1, 5, 7, 11, 13, 17, 19, 23, 25, 29.
Example2:
To find row n of the irregular triangle A279864, multiply each value in row n-1 of A286941 with the largest prime factor b in A002110(n).
Example for n=3: b=5.
1*5=5
5*5=25
Example3:
To find row n of the irregular triangle A286941, remove the values that are in row n of the irregular triangle A279864 from the values that are in row n of the irregular triangle A286942.
For n=3.
A286942 row n = 1, 5, 7, 11, 13, 17, 19, 23, 25, 29.
A279864 row n = 5, 25.
Removing values 5, 25 from the values in A286942 row n gives row n of A286941: 1, 7, 11, 13, 17, 19, 23, 29.
-
Table[Select[Range@ #2, Function[k, CoprimeQ[k, #1]]] & @@ Map[Times @@ # &, {Most@ #, #}] &@ Prime@ Range@ n, {n, 4}] // Flatten (* Michael De Vlieger, May 18 2017 *)
A329815
Number of distinct terms in the first difference sequence of the reduced residue system of the n-th primorial.
Original entry on oeis.org
0, 1, 3, 5, 7, 10, 13, 16, 20, 23, 29, 33, 37, 43, 49, 53, 59, 66, 75, 84, 92, 99, 108, 116, 127, 132, 140, 148, 156, 164, 174, 185, 193, 206, 215, 224, 235, 245, 255, 267, 275, 286, 297, 308
Offset: 1
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.
-
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 *)
-
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
a(12)-a(44) from
Jamie Morken, Jul 11 2020 (after Mario Ziller)
A335334
Sum of the integers in the reduced residue system of A002110(n).
Original entry on oeis.org
1, 6, 120, 5040, 554400, 86486400, 23524300800, 8045310873600, 4070927302041600, 3305592969257779200, 3074201461409734656000, 4094836346597766561792000, 6715531608420337161338880000, 12128250084807128913378017280000
Offset: 1
For n = 3: A002110(3) = 30, the reduced residue system of 30 is {1, 7, 11, 13, 17, 19, 23, 29}. The sum is a(3) = 120.
-
n = 15;
A002110 = Drop[FoldList[Times, 1, Prime[Range[n]]], 1];
A005867 = Drop[EulerPhi@FoldList[Times, 1, Prime@Range@n], 1];
A002110*A005867/2
(* Second program: *)
Map[# EulerPhi[#]/2 &, FoldList[Times, Prime@ Range@ 14]] (* Michael De Vlieger, Apr 07 2021 *)
-
a(n) = my(P=factorback(primes(n))); P*eulerphi(P)/2; \\ Michel Marcus, Jun 02 2020
A319148
Irregular triangle T(n,m) where row n lists differences m = j*p - r - 1, with iterator 1 <= j <= A002110(n), p = prime(n+1), and r is the smallest number that exceeds j*p that is coprime to A002110(n+1).
Original entry on oeis.org
0, 1, 0, 1, 0, 1, 2, 3, 0, 3, 2, 1, 0, 1, 0, 3, 2, 3, 0, 1, 4, 5, 2, 1, 0, 1, 0, 3, 2, 1, 2, 1, 0, 3, 4, 1, 0, 5, 0, 1, 0, 3, 2, 3, 0, 1, 0, 1, 2, 5, 4, 5, 2, 1, 2, 3, 0, 1, 0, 1, 4, 3, 4, 1, 2, 1, 2, 3, 0, 5, 0, 3, 2, 3, 0, 1, 0, 1, 2, 5, 0, 5, 2, 3, 2, 3, 0, 1, 0, 1, 4, 3, 4, 1, 0, 1
Offset: 1
Triangle begins:
0;
1,0;
1,0,1,2,3,0;
3,2,1,0,1,0,3,2,3,0,1,4,5,2,1,0,1,0,3,2,1,2,1,0,3,4,1,0,5,0;
...
For n = 2, we have s = {2,3,5}, with p = prime(n+1) = 5, P = A002110(2) = 6, and Q = A002110(3) = 30. Then R = row n of A286941 = {1, 7, 11, 13, 17, 19, 23, 29} (we add 31 to this list since we are concerned with the residue that is larger than the largest k and since 31 is the ensuing number coprime to Q). The series of multiples k = j*p are the multiples 5j with 1 <= j <= P, thus {5, 10, 15, 20, 25, 30}. In R, the smallest residues that exceed the multiples k in the immediately aforementioned list are {7, 11, 17, 23, 29, 31}. The differences are {7 - 5, 11 - 10, 17 - 15, 23 - 20, 29 - 25, 31 - 30} or {2, 1, 2, 3, 4, 1}; subtracting one from each we have row 2 = {1, 0, 1, 2, 3, 0}.
For example, the third value on row n=20000 is 15, so all values in the range (3 * prime(20000) + i) to (3 * prime(20000) + i) for 1 <= i <= 15 have at least one prime factor <= prime(n).
-
rowToCreate = 3; (* create row n *)
redundantDistanceToCheck = 1; (* set to 2 or higher to see n repeating
patterns of length primorial[rowToCreate] *)
Primorial[n_] := Times @@ Prime[Range[n]]
rowValue = 0;
primeToUse = Prime[rowToCreate];
distanceToCheck1 = redundantDistanceToCheck*Primorial[rowToCreate];
(* distanceToCheck1=rowToCreate*10000; *)(* uncomment this second option to create the first few values in very large rows up to rowToCreate=7000000000000 *)
For[i = primeToUse, i < distanceToCheck1 + 1, i = i + primeToUse,
For[x = i + 1, x < distanceToCheck1 + 2, x++,
If[FactorInteger[x][[1, 1]] < primeToUse, rowValue++; , x =
distanceToCheck1 + 2;
Print[rowValue];
rowValue = 0;
]]] (* Jamie Morken, Sep 11 2018 *)
(* Program to check the number of composites referenced to row
values: *)
Row = 100;
ColumnOnTheRow = 12;
Print["composites>", ColumnOnTheRow*Prime[Row], "=",
(NextPrime[ColumnOnTheRow*Prime[Row]]) -
(ColumnOnTheRow*Prime[Row]) - 1];
(* Second program: *)
Table[Block[{s = Prime@ Range[n + 1], p, P, Q}, p = Last@ s; P = Times @@
Most@ s; Q = Times @@ s; Array[Block[{k = 1}, While[! CoprimeQ[k + p #,
Q], k++]; k - 1] &, P]], {n, 4}] // Flatten (* Michael De Vlieger, Sep 11 2018 *)
Showing 1-7 of 7 results.
Comments