login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A232867
Positions of the negative integers in the sequence (or tree) of complex numbers generated by these rules: 0 is in S, and if x is in S, then x + 1 and i*x are in S, where duplicates are deleted as they occur.
3
8, 12, 19, 30, 45, 64, 87, 114, 145, 180, 219, 262, 309, 360, 415, 474, 537, 604, 675, 750, 829, 912, 999, 1090, 1185, 1284, 1387, 1494, 1605, 1720, 1839, 1962, 2089, 2220, 2355, 2494, 2637, 2784, 2935, 3090, 3249, 3412, 3579, 3750, 3925, 4104, 4287, 4474
OFFSET
1,1
COMMENTS
Let S be the sequence (or tree) of complex numbers defined by these rules: 0 is in S, and if x is in S, then x + 1, and i*x are in S. Deleting duplicates as they occur, the generations of S are given by g(1) = (0), g(2) = (1), g(3) = (2,i), g(4) = (3, 2i, 1+i, -1), ... Concatenating these gives 0, 1, 2, i, 3, 2*i, 1 + i, -1, 4, 3*i, 1 + 2*i, -2, 2 + i, -1 + i, -i, 5, ... It appears that if c and d are integers, than the positions of c*n+d*i, for n>=0, comprise a linear recurrence sequence with signature beginning with 3, -3, 1, following for zero or more 0's.
LINKS
FORMULA
a(n+1) = 2*n^2 + n + 9 for n >= 1 (conjectured).
G.f.: (-8 + 12 x - 7 x^2 - x^3)/(x -1)^3 (conjectured).
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n >= 5 (conjectured).
EXAMPLE
Each x begets x + 1, and i*x, but if either these has already occurred it is deleted. Thus, 0 begets (1); then 1 begets (2,i,); then 2 begets 3 and 2*i, and i begets 1 + i and -1, so that g(4) = (3, 2*i, 1 + i, -1), etc.; a(1) = 8 because -1 occurs in the 8th position of S.
MATHEMATICA
x = {0}; Do[x = DeleteDuplicates[Flatten[Transpose[{x, x + 1, I*x}]]], {40}]; x;
t1 = Flatten[Table[Position[x, n], {n, 0, 30}]] (* A232866 *)
t2 = Flatten[Table[Position[x, -n], {n, 1, 30}]] (* A232867 *)
Union[t1, t2] (* A232868 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Dec 01 2013
STATUS
approved