|
Search: id:A112484
|
|
|
| A112484 |
|
Array where n-th row contains the primes < n and coprime to n. |
|
+0
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; listen)
|
|
|
OFFSET
|
3,1
|
|
|
COMMENT
|
Array's n-th row contains A048865(n) terms.
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
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 this_sequence A124459 A046147 A052369
Adjacent sequences: A112481 A112482 A112483 this_sequence A112485 A112486 A112487
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
Leroy Quet Dec 13 2005
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 26 2005
|
|
|
Search completed in 0.002 seconds
|
