|
| |
|
|
A112484
|
|
Array where n-th row contains the primes < n and coprime to n.
|
|
1
| |
|
|
2, 3, 2, 3, 5, 2, 3, 5, 3, 5, 7, 2, 5, 7, 3, 7, 2, 3, 5, 7, 5, 7, 11, 2, 3, 5, 7, 11, 3, 5, 11, 13, 2, 7, 11, 13, 3, 5, 7, 11, 13, 2, 3, 5, 7, 11, 13, 5, 7, 11, 13, 17, 2, 3, 5, 7, 11, 13, 17, 3, 7, 11, 13, 17, 19, 2, 5, 11, 13, 17, 19, 3, 5, 7, 13, 17, 19, 2, 3, 5, 7, 11, 13, 17, 19, 5, 7, 11, 13
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 3,1
|
|
|
COMMENTS
| Array's n-th row contains A048865(n) terms.
T(A005408(n),1) = 2; T(n,1) = A053669(n). [Reinhard Zumkeller, Sep 23 2011]
|
|
|
EXAMPLE
| Row 9 is [2, 5, 7], since 2, 5 and 7 are the primes < 9 and coprime to 9.
|
|
|
MATHEMATICA
| f[l_] := Block[{n}, n = Length[l] + 1; Return[Append[l, Select[Range[n - 1], PrimeQ[ # ] && Mod[n, # ] > 0 &]]]; ]; Flatten[Nest[f, {}, 24]] (*Chandler*)
|
|
|
CROSSREFS
| Cf. A048865.
Sequence in context: A098235 A114868 A138239 * A174063 A124459 A046147
Adjacent sequences: A112481 A112482 A112483 * A112485 A112486 A112487
|
|
|
KEYWORD
| nonn,tabf
|
|
|
AUTHOR
| Leroy Quet Dec 13 2005
|
|
|
EXTENSIONS
| Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 26 2005
|
| |
|
|
