login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A140985 First row of infinite array A(j,k): A(j,1) = j-1; A(1,k) = A(2,k-1); for j, k > 1, A(j,k) = A(j-1,k) - A(j+1,k-1) if that number is positive and not already in column k, A(j,k) = A(j-1,k) + A(j+1,k-1) otherwise. 1
0, 1, 3, 9, 2, 18, 15, 69, 228, 90, 58, 438, 174, 1540, 579, 4957, 1860, 6340, 3572, 20646, 10276, 72070, 33978, 21794, 134644, 66308, 32884, 284546, 154006, 12326, 132691, 609297, 281174, 1777074, 813864, 485328, 3663226, 1659946, 5081036 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,3

COMMENTS

The natural numbers preceded by 0 constitute the first column; the other columns are built by a slight modification of the definition of Recamán's sequence. E.g., the second column is Recamán's sequence deprived of its first term 0 (cf. A005132).

LINKS

Klaus Brockhaus, Table of n, a(n) for n = 1..1000

EXAMPLE

Upper left triangle of the array is

0 1 3 9 2 18 15 69 228...

1 3 9 2 18 15 69 228...

2 6 7 16 3 54 159 ...

3 2 14 15 39 90 ...

4 7 1 36 36 ...

5 13 21 3 ...

6 20 33 ...

7 12 ...

8 ...

PROG

(PARI) {m=40; A=matrix(m, m); k=1; for(j=1, m, A[j, k]=j-1); print1(A[1, k], ", "); for(k=2, m, print1(A[1, k]=A[2, k-1], ", "); s=Set(A[1, k]); for(j=2, m-k+1, e=A[j-1, k]-A[j+1, k-1]; if((e>0)&&!setsearch(s, e), A[j, k]=e, A[j, k]=A[j-1, k]+A[j+1, k-1]); s=setunion(s, Set(A[j, k]))))} \\ Klaus Brockhaus, Aug 05 2008

CROSSREFS

Cf. A005132.

Sequence in context: A125301 A263559 A262343 * A286676 A246379 A303941

Adjacent sequences:  A140982 A140983 A140984 * A140986 A140987 A140988

KEYWORD

nonn

AUTHOR

Philippe Lallouet (philip.lallouet(AT)orange.fr), Jul 28 2008

EXTENSIONS

Edited and extended by Klaus Brockhaus, Aug 05 2008

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 10 13:04 EDT 2020. Contains 335576 sequences. (Running on oeis4.)