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

 


A136527
Triangle read by rows: T(n,k) = greatest common divisor of n-th and k-th composite number, 1<=k<=n.
2
4, 2, 6, 4, 2, 8, 1, 3, 1, 9, 2, 2, 2, 1, 10, 4, 6, 4, 3, 2, 12, 2, 2, 2, 1, 2, 2, 14, 1, 3, 1, 3, 5, 3, 1, 15, 4, 2, 8, 1, 2, 4, 2, 1, 16, 2, 6, 2, 9, 2, 6, 2, 3, 2, 18, 4, 2, 4, 1, 10, 4, 2, 5, 4, 2, 20, 1, 3, 1, 3, 1, 3, 7, 3, 1, 3, 1, 21, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 22, 4, 6, 8, 3, 2, 12, 2, 3, 8, 6, 4, 3, 2, 24
(list; table; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
Table of n, a(n) for n=1..105.
FORMULA
T(n,k) = A050873(A002808(n),A002808(k));
A073783(n) = T(n-1,n) for n>1;
A002808(n) = T(n,n).
EXAMPLE
4;
2, 6;
4, 2, 8;
1, 3, 1, 9;
2, 2, 2, 1, 10;
...
MATHEMATICA
nmax = 14;
A002808 = Select[Range[FindRoot[n == nmax + PrimePi[n] + 1, {n, nmax, 2nmax}][[1, 2]] // Ceiling], CompositeQ];
T[n_, k_] := GCD[A002808[[n]], A002808[[k]]];
Table[T[n, k], {n, 1, nmax}, {k, 1, n}] // Flatten (* Jean-François Alcover, Nov 15 2021 *)
CROSSREFS
Cf. A002808, A050873, A073783.
Sequence in context: A092205 A272101 A059853 * A246776 A138614 A161912
Adjacent sequences: A136524 A136525 A136526 * A136528 A136529 A136530
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Jan 03 2008
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 20 03:37 EDT 2024. Contains 376016 sequences. (Running on oeis4.)