Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
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!)
A072007 a(0) = 0; for n>=1, a(n)=least nonnegative integer x such that |x-a(n-1)|>=n and x is not a(k) for any k<n. 5
0, 1, 3, 6, 2, 7, 13, 4, 12, 21, 5, 16, 28, 8, 22, 37, 9, 26, 44, 10, 30, 51, 11, 34, 58, 14, 40, 67, 15, 45, 75, 17, 49, 82, 18, 53, 89, 19, 57, 96, 20, 61, 103, 23, 68, 113, 24, 71, 119, 25, 76, 127, 27, 80, 134, 29, 85, 142, 31, 90, 150, 32 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
COMMENTS
A permutation of the nonnegative integers.
LINKS
PROG
(Haskell)
import Data.List (delete)
a072007 n = a072007_list !! n
a072007_list = 0 : f 1 0 [1..] where
f u v ws = g ws where
g (x:xs) = if abs (x - v) < u
then g xs else x : f (u + 1) x (delete x ws)
-- Reinhard Zumkeller, Sep 04 2014
CROSSREFS
Cf. A072008, A072009 (inverse).
Sequence in context: A169749 A169750 A249558 * A078783 A273465 A328503
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jun 07 2002
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 August 18 17:05 EDT 2024. Contains 375269 sequences. (Running on oeis4.)