|
| |
|
|
A075075
|
|
a(1) = 1, a(2) = 2 and then the smallest number not occurring earlier such that every term divides the product of its neighbors: a(n-1)*a(n+1)/a(n) is an integer.
|
|
4
| |
|
|
1, 2, 4, 6, 3, 5, 10, 8, 12, 9, 15, 20, 16, 24, 18, 21, 7, 11, 22, 14, 28, 26, 13, 17, 34, 30, 45, 27, 33, 44, 32, 40, 25, 35, 42, 36, 48, 52, 39, 51, 68, 56, 70, 50, 55, 66, 54, 63, 49, 77, 88, 64, 72, 81, 90, 60, 38, 19, 23, 46, 58, 29, 31, 62, 74, 37, 41, 82, 76, 114, 57, 43
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| This is a permutation of natural numbers. [Leroy Quet asks if this is a theorem or just a conjecture? May 06 2009]
|
|
|
LINKS
| Alois P. Heinz, Table of n, a(n) for n = 1..10000
|
|
|
MAPLE
| b:= proc(n) option remember; false end: a:= proc(n) option remember; local k, m; if n<3 then b(n):= true; n else m:= denom (a(n-2) /a(n-1)); for k from m by m while b(k) do od; b(k):= true; k fi end: seq (a(n), n=1..100); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), May 16 2009]
|
|
|
MATHEMATICA
| f[s_List] := Block[{m = Numerator[ s[[ -1]]/s[[ -2]] ]}, k = m; While[ MemberQ[s, k], k += m]; Append[s, k]]; Nest[f, {1, 2}, 70] [From Robert G. Wilson v (rgwv(AT)rgwv.com), May 20 2009]
|
|
|
CROSSREFS
| Cf. A075076, A160256.
Sequence in context: A076179 A175213 A104492 * A088178 A161184 A140645
Adjacent sequences: A075072 A075073 A075074 * A075076 A075077 A075078
|
|
|
KEYWORD
| nice,nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Sep 09 2002
|
|
|
EXTENSIONS
| More terms from Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Feb 03 2003
|
| |
|
|
