Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A082189
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A082189 Main diagonal of square array A082025. +0
5
1, 5, 12, 41, 26, 103, 58, 181, 92, 293, 128, 439, 174, 617, 230, 817, 290, 1037, 376, 1225, 446, 1565, 542, 1883, 628, 2227, 746, 2555, 848, 2983, 962, 3409, 1102, 3859, 1238, 4331, 1384, 4823, 1532, 5345, 1684, 5945, 1858, 6539, 2038, 7135, 2218, 7801 (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 (T(n, n), n=1..60); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), Oct 07 2009]

CROSSREFS

Cf. A082025, A082187, A082188, A082190.

Sequence in context: A092772 A164737 A120779 this_sequence A129795 A052644 A052280

Adjacent sequences: A082186 A082187 A082188 this_sequence A082190 A082191 A082192

KEYWORD

nonn

AUTHOR

Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Apr 07 2003

EXTENSIONS

Edited with more terms and Maple program by Alois P. Heinz (heinz(AT)hs-heilbronn.de), Oct 07 2009

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified December 15 00:47 EST 2009. Contains 170825 sequences.


AT&T Labs Research