|
| |
|
|
A060735
|
|
Where n / (phi(n) + 1) increases.
|
|
15
| |
|
|
1, 2, 4, 6, 12, 18, 24, 30, 60, 90, 120, 150, 180, 210, 420, 630, 840, 1050, 1260, 1470, 1680, 1890, 2100, 2310, 4620, 6930, 9240, 11550, 13860, 16170, 18480, 20790, 23100, 25410, 27720, 30030, 60060, 90090, 120120, 150150, 180180, 210210
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| Except for the initial 1, this sequence is a primorial (A002110) followed by its multiples until the next primorial, then the multiples of that primorial and so on. - Wilfredo Lopez (chakotay147138274(AT)yahoo.com), Dec 28 2006
a(1)=1, a(2)=2. For n >=3, a(n) = the smallest integer that both is > a(n-1) and is divisible by every prime that LCM(a(1),a(2),a(3),...a(n)) is divisible by. [From Leroy Quet, Feb 23 2010]
|
|
|
FORMULA
| a(1) = 1, a(n) = a(n-1) + sfk(a(n-1)) with sfk=A007947, squarefree kernel. - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Apr 10 2006
|
|
|
MAPLE
| seq(seq(k*mul(ithprime(i), i=1..n-1), k=1..ithprime(n)-1), n=1..10); (from Vladeta Jovovic (vladeta(AT)eunet.rs), Apr 08 2004)
|
|
|
MATHEMATICA
| a = 0; Do[ b = n/(EulerPhi[ n ] + 1); If[ b > a, a = b; Print[ n ] ], {n, 1, 10^6} ]
|
|
|
CROSSREFS
| Cf. A000010, A055719.
Sequence in context: A072121 A175305 A171923 * A181416 A051683 A181740
Adjacent sequences: A060732 A060733 A060734 * A060736 A060737 A060738
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 23 2001
|
|
|
EXTENSIONS
| Definition corrected by Franklin T. Adams-Watters, Apr 16 2009
|
| |
|
|
