login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A082187 First row of square array A082025. 5
1, 2, 7, 6, 23, 10, 21, 20, 33, 28, 51, 44, 87, 56, 117, 80, 153, 100, 201, 110, 243, 140, 291, 164, 327, 188, 387, 218, 405, 248, 483, 284, 555, 322, 633, 340, 711, 392, 783, 430, 861, 460, 951, 520, 1029, 550, 1137, 616, 1251, 664, 1335, 718, 1365, 778, 1551 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Alois P. Heinz, Table of n, a(n) for n = 1..200

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(T(1, k), k=1..60); # Alois P. Heinz, Oct 07 2009

CROSSREFS

Cf. A082025, A082188, A082189, A082190.

Sequence in context: A265495 A082017 A072985 * A211368 A225101 A286800

Adjacent sequences:  A082184 A082185 A082186 * A082188 A082189 A082190

KEYWORD

nonn

AUTHOR

Amarnath Murthy, Apr 07 2003

EXTENSIONS

More terms from R. J. Mathar, May 06 2006

Edited with further terms by Alois P. Heinz, Oct 07 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 20 16:15 EDT 2019. Contains 325185 sequences. (Running on oeis4.)