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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A005350 a(1) = a(2) = a(3) = 1, a(n) = a(a(n-1))+a(n-a(n-1)) for n >= 4.
(Formerly M0253)
6
1, 1, 1, 2, 2, 3, 3, 3, 4, 5, 5, 5, 5, 6, 7, 7, 8, 8, 8, 8, 8, 9, 10, 11, 11, 12, 12, 12, 13, 13, 13, 13, 13, 13, 14, 15, 16, 16, 17, 18, 18, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 21, 21, 21, 22, 23, 24, 25, 25, 26, 27, 27, 28 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

COMMENTS

a(n)-a(n-1) = 0 or 1 (see the 1991 Monthly reference). - Emeric Deutsch, Jun 06 2005

REFERENCES

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

LINKS

T. D. Noe, Table of n, a(n) for n=1..1000

R. K. Guy, The Second Strong Law of Small Numbers, Math. Mag, 63 (1990), no. 1, 3-20.

R. K. Guy, The Second Strong Law of Small Numbers, Math. Mag, 63 (1990), no. 1, 3-20. [Annotated scanned copy]

R. K. Guy and N. J. A. Sloane, Correspondence, 1988.

D. Kleitman, Solution to Problem E3274, Amer. Math. Monthly, 98 (1991), 958-959.

MAPLE

A005350 := proc(n) option remember; if n<=3 then 1 else A005350(A005350(n-1))+A005350(n-A005350(n-1)); fi; end;

a[1]:=1: a[2]:=1: a[3]:=1: for n from 4 to 64 do a[n]:=a[a[n-1]]+a[n-a[n-1]] od: seq(a[n], n=1..64); # Emeric Deutsch, Jun 06 2005

MATHEMATICA

a[1] = a[2] = a[3] = 1; a[n_] := a[n] = a[a[n-1]] + a[n-a[n-1]]; Table[a[n], {n, 1, 64}] (* Jean-Fran├žois Alcover, Feb 11 2014 *)

PROG

(Haskell)

a005350 n = a005350_list !! (n-1)

a005350_list = 1 : 1 : 1 : h 4 1 where

   h x y = z : h (x + 1) z where z = a005350 y + a005350 (x - y)

-- Reinhard Zumkeller, Jul 20 2012

CROSSREFS

Cf. A004001, A005707.

Cf. A005185.

Sequence in context: A080677 A316628 A153112 * A055037 A227386 A125186

Adjacent sequences:  A005347 A005348 A005349 * A005351 A005352 A005353

KEYWORD

nonn,easy,nice

AUTHOR

N. J. A. Sloane, R. K. Guy

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 June 17 14:09 EDT 2019. Contains 324185 sequences. (Running on oeis4.)