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!)
A127366 Let m = floor(sqrt(n)); if n and m have the same parity, a(n) = n + m, otherwise a(n) = n - m. 4
0, 2, 1, 4, 6, 3, 8, 5, 10, 12, 7, 14, 9, 16, 11, 18, 20, 13, 22, 15, 24, 17, 26, 19, 28, 30, 21, 32, 23, 34, 25, 36, 27, 38, 29, 40, 42, 31, 44, 33, 46, 35, 48, 37, 50, 39, 52, 41, 54, 56, 43, 58, 45, 60, 47, 62, 49, 64, 51, 66, 53, 68, 55, 70, 72, 57, 74, 59, 76, 61, 78, 63, 80 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

This is a permutation of the nonnegative integers; it can also be generated by the rule (with m = floor(sqrt(n))): if n - m is not yet in the sequence, a(n) = n - m, otherwise a(n) = n + m. All cycles in this permutation are finite. There is one relatively large cycle starting at n = 4k^2 - 2k + 1 for each k and k 2-cycles for n = (2k - 1)^2 + 2i and (2k - 1)^2 + 2k - 1 + 2i with 0 <= i < k.

a(A133280(n,k)) mod 2 = 0 and a(A195437(n,k)) mod 2 = 1, 0 <= k < n. [Reinhard Zumkeller, Oct 12 2011]

LINKS

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

Index entries for sequences that are permutations of the natural numbers

MATHEMATICA

a[n_] := If[m = Floor[Sqrt[n]]; OddQ[n] && OddQ[m] || EvenQ[n] && EvenQ[m], n+m, n-m]; Table[ a[n], {n, 0, 72}](* Jean-Fran├žois Alcover, Nov 30 2011 *)

PROG

(Haskell)

a127366 n | even n'   = n'

          | otherwise = 2*n - n'

          where n' = n + a000196 n

-- Reinhard Zumkeller, Oct 12 2011

CROSSREFS

Cf. A127367.

Cf. A000196.

Sequence in context: A171007 A209168 A209162 * A064786 A193902 A043302

Adjacent sequences:  A127363 A127364 A127365 * A127367 A127368 A127369

KEYWORD

nice,nonn

AUTHOR

Franklin T. Adams-Watters, Jan 11 2007

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 March 7 19:13 EST 2021. Contains 341928 sequences. (Running on oeis4.)