A193926 -id:A193926 - cp's OEIS frontend

A062039 a(0) = 1; a(n+1) = a(n) - n if a(n) > n, otherwise a(n+1) = a(n) + a(a(n)).

1, 1, 2, 4, 1, 2, 4, 5, 7, 12, 3, 7, 12, 24, 11, 18, 3, 7, 12, 24, 5, 7, 12, 24, 1, 2, 4, 5, 7, 12, 24, 25, 27, 32, 59, 25, 27, 32, 59, 21, 28, 35, 60, 18, 30, 54, 9, 21, 28, 35, 60, 10, 13, 37, 69, 15, 33, 65, 8, 15, 33, 65, 4, 5, 7, 12, 24, 25, 27, 32, 59, 74, 3, 7, 12, 24, 25, 27

Offset: 0

Reinhard Zumkeller, Jul 12 2001

a(A193854(n)) = 1, n>0;

A123643 and A123644 give record values and their positions: A123643(n)=a(A123644(n)). - Reinhard Zumkeller, Oct 04 2006

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

A123643 and A123644 give record values and their positions: A123643(n)=a(A123644(n)).

Cf. A193926 (first differences), A193927.

a062039 n = a062039_list !! n
a062039_list = 1 : f 1 0 where
   f x n | x > n     = (x-n) : f (x-n) (n+1)
         | otherwise =    x' : f x' (n+1) where x' = x + a062039 x
-- Reinhard Zumkeller, Aug 10 2011

a[0] = 1; a[n_] := a[n] = If[a[n-1] > n-1, a[n-1] - (n-1), a[n-1] + a[a[n-1]]]; Table[a[n], {n, 0, 77}] (* Jean-François Alcover, Mar 20 2011 *)

A193927 Numbers m such that A062039(m+1) < A062039(m).

Original entry on oeis.org

3, 9, 13, 15, 19, 23, 34, 38, 42, 45, 50, 54, 57, 61, 71, 81, 92, 96, 99, 107, 120, 133, 150, 157, 161, 180, 190, 214, 234, 236, 246, 254, 261, 270, 273, 279, 292, 297, 301, 322, 329, 335, 339, 361, 386, 390, 396, 398, 419, 425, 427, 453, 463, 468, 478, 494

Offset: 1

Reinhard Zumkeller, Aug 10 2011

nonn

a(n) = - A193926(a(n));

complement of A193928, A062039(a(n)+1) < A062039(a(n)).

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

import Data.List (findIndices)
a193927 n = a193927_list !! (n-1)
a193927_list = findIndices (< 0) a193926_list

cp's OEIS Frontend

A062039 a(0) = 1; a(n+1) = a(n) - n if a(n) > n, otherwise a(n+1) = a(n) + a(a(n)).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica