login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A097511 Rightmost terms of the triangle A097825. 2
1, 1, 1, 4, 3, 4, 7, 2, 8, 2, 4, 8, 2, 12, 8, 11, 12, 11, 16, 11, 17, 3, 17, 5, 17, 7, 13, 15, 1, 30, 3, 30, 5, 30, 13, 24, 27, 12, 31, 10, 35, 8, 39, 6, 26, 20, 22, 26, 20, 30, 18, 34, 16, 38, 10, 49, 12, 49, 14, 49, 22, 43, 24, 43, 26, 43, 63, 3, 63, 5, 57, 13, 57, 15, 57, 17, 51, 25 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
LINKS
MAPLE
p:=proc(n) local B, k, u, rev, w; with(linalg):u:=n->[seq(i, i=1..n)]; rev:=proc(a) [seq(a[nops(a)+1-i], i=1..nops(a))] end; w:=(m, n)->[seq(i, i=m..n)]; B[0]:=matrix(1, n, u(n)): if n mod 2 = 0 then for k from 1 to n/2 do B[2*k-1]:=concat(submatrix(B[2*k-2], [1], rev(u(2*k-1))), submatrix(B[2*k-2], [1], w(2*k, n))): B[2*k]:=concat(submatrix(B[2*k-1], [1], u(n-2*k)), submatrix(B[2*k-1], [1], rev(w(n+1-2*k, n)))) od else for k from 1 to (n-1)/2 do B[2*k-1]:=concat(submatrix(B[2*k-2], [1], rev(u(2*k-1))), submatrix(B[2*k-2], [1], w(2*k, n))): B[2*k]:=concat(submatrix(B[2*k-1], [1], u(n-2*k)), submatrix(B[2*k-1], [1], rev(w(n+1-2*k, n)))) od: B[n]:=concat(submatrix(B[n-1], [1], rev(u(n))), submatrix(B[n-1], [1], [])) fi end:seq(p(i)[1, i], i=1..89); # Emeric Deutsch, Feb 27 2005
CROSSREFS
Cf. A097825.
Sequence in context: A117893 A354346 A021701 * A200592 A021027 A289672
KEYWORD
easy,nonn
AUTHOR
Leroy Quet, Aug 26 2004
EXTENSIONS
More terms from Emeric Deutsch, Feb 27 2005
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 10:31 EDT 2024. Contains 371240 sequences. (Running on oeis4.)