|
Search: id:A082190
|
|
| |
|
| 1, 5, 16, 39, 79, 157, 190, 337, 407, 705, 742, 1147, 1235, 1855, 1836, 2879, 2691, 4067, 3752, 5683, 5005, 7687, 6670, 10117, 8595, 12837, 10950, 15737, 13461, 19621, 16494, 23739, 19925, 28401, 23788, 34057, 28077, 39997, 32842, 47027, 38309
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MAPLE
|
b:= proc(t) option remember; false end: b(1):= true: ncpr:= proc() local i, m; m:= args[1]; for i from 2 to nargs do if igcd (m, args[i])<>1 then RETURN (true) fi od; false end: T:= proc(n, k) option remember; local h, t, l; if n<1 or k<1 or n=1 and k=1 then t:=1 else h:= 1- 2* irem(n+k, 2); l:= T(n-1, k), T(n, k-1), T(n-1, k-1), T(n+h, k-h); for t while b(t) or ncpr(t, l) do od fi; b(t):= true; t end: seq (add (T (n, 1+d-n), n=1..d), d=1..60); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), Oct 07 2009]
|
|
CROSSREFS
|
Cf. A082025, A082187, A082188, A082189.
Sequence in context: A011932 A131283 A082199 this_sequence A155965 A011863 A027085
Adjacent sequences: A082187 A082188 A082189 this_sequence A082191 A082192 A082193
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 07 2003
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), May 06 2006
Edited with further terms and Maple program by Alois P. Heinz (heinz(AT)hs-heilbronn.de), Oct 07 2009
|
|
|
Search completed in 0.002 seconds
|