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

 

Logo

Many excellent designs for a new banner were submitted. We will use the best of them in rotation.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A059983 First occurrence of n in A007599. 1
1, 0, 6, 7, 8, 9, 12, 13, 14, 15, 18, 19, 22, 23, 24, 25, 28, 29, 32, 33, 36, 37, 40, 41, 42, 43, 46, 47, 50, 51, 54, 55, 58, 59, 62, 63, 66, 67, 70, 71, 74, 75, 76, 77, 80, 81, 84, 85, 88, 89, 92, 93, 96, 97, 100, 101, 104, 105, 108, 109, 112, 113, 116, 117, 120, 121, 124 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,3

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

EXAMPLE

a(5) does not appear in A007599 until the 9th entry, keeping in mind the offset.

MATHEMATICA

a[n_Integer] := a[n] = (a[n - 1] + Nest[a, n - 2, Floor[n/2] ] ); a[0] = 1; a[1] = 0; b[n_Integer] := (k = 0; While[ a[k] != n, k++ ]; k); Table[ b[n], {n, 0, 75} ]

PROG

(Haskell)

import Data.List (elemIndex)

import Data.Maybe (mapMaybe)

a059983 n = a059983_list !! n

a059983_list = mapMaybe (`elemIndex` a007599_list) [0..]

-- Reinhard Zumkeller, Jan 05 2012

CROSSREFS

Cf. A007599.

Sequence in context: A143616 A005050 A120191 * A177106 A037366 A047551

Adjacent sequences:  A059980 A059981 A059982 * A059984 A059985 A059986

KEYWORD

nonn

AUTHOR

Robert G. Wilson v, Mar 07 2001

STATUS

approved

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

Content is available under The OEIS End-User License Agreement .

Last modified April 17 18:00 EDT 2014. Contains 240655 sequences.