This site is supported by donations to The OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A113880 Variation on Recamán's sequence utilizing the four basic operations (/,-,+,*) in that order. 1

%I

%S 0,1,3,6,2,7,13,20,12,21,11,22,10,23,9,24,8,25,43,62,42,63,41,18,432,

%T 407,381,354,326,297,267,236,204,171,137,102,66,29,67,28,68,27,69,26,

%U 70,115,161,114,162,113,163,112,60,3180,3126,3071,3015,2958,51,110,50,111,49

%N Variation on Recamán's sequence utilizing the four basic operations (/,-,+,*) in that order.

%C More precisely:

%C a(n) = a(n-1)/n if a(n-1)/n is integer and not already in the sequence. Else:

%C a(n) = a(n-1)-n if a(n-1)-n is positive and not already in the sequence. Else:

%C a(n) = a(n-1)+n if a(n-1)+n is not already in the sequence. Else:

%C a(n) = a(n-1)*n if a(n-1)*n is not already in the sequence. Else STOP.

%C In other words, divide if you can, else subtract, else add, else multiply.

%C By a(1000) there are 3 division steps, 928 subtraction steps, 59 addition steps and 10 multiplication steps. It is unlikely that every number belongs to the sequence since there are many "holes". It is an open question if there are any repetitions after a multiplication step. Can anybody expand the series?

%C At a(2500000000)=2285684529311288243, there have been 44 divisions, 2499821613 subtractions, 178253 additions, and 90 multiplications. The largest value seen was a=3555357710450807490. No multiplication step has produced a duplicate term. - _Benjamin Chaffin_, Sep 22 2016

%H Robert G. Wilson v, <a href="/A113880/b113880.txt">Table of n, a(n) for n = 0..10000</a>

%H <a href="/index/Rea#Recaman">Index entries for sequences related to Recamán's sequence</a>

%e a(24) = 432 because: a(23) = 18.

%e 18/24 is not an integer.

%e 18-24 is negative.

%e 18 + 24 = 42 is already in the sequence.

%e Therefore 18 * 24 = 432.

%t f[s_List] := Block[{l = s[[-1]], n = Length@ s}, If[ IntegerQ[l/n] && !MemberQ[s, l/n], Append[s, l/n], If[l > n && !MemberQ[s, l - n], Append[s, l - n], If[ !MemberQ[s, l + n], Append[s, l + n], Append[s, l*n]]]]]; Nest[f, {0}, 62] (* _Robert G. Wilson v_, Sep 10 2016 *)

%Y Cf. A005132.

%K nonn

%O 0,3

%A _Sergio Pimentel_, Jan 27 2006

%E a(0)=0 prepended by _Robert G. Wilson v_, Sep 10 2016

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.

Last modified June 19 17:16 EDT 2019. Contains 324222 sequences. (Running on oeis4.)