cp's OEIS Frontend

A304273 The concatenation of the first n terms is the smallest positive even number with n digits when written in base 3/2 (cf. A024629).

%I A304273 #43 Mar 13 2021 00:06:05
%S A304273 2,1,0,1,1,0,0,0,1,1,0,1,0,0,1,1,0,1,0,1,0,0,1,1,0,1,0,0,1,0,1,0,0,0,
%T A304273 0,0,1,1,0,1,0,0,0,0,0,0,0,1,0,1,1,1,1,1,0,0,1,1,0,1,0,1,1,0,1,0,1,0,
%U A304273 0,1,0,0,1,1,1,1,0,1,1,0,1,1,1,1,1,1,0,1,0,0,0,0,0,1,1,0,1,1,0,1,0,1,1,0,0
%N A304273 The concatenation of the first n terms is the smallest positive even number with n digits when written in base 3/2 (cf. A024629).
%C A304273 This sequence exists since the smallest even integers (see A303500) are prefixes of each other.
%C A304273 Apparently a variant of A205083. - _R. J. Mathar_, Jun 09 2018
%H A304273 Michael De Vlieger, <a href="/A304273/b304273.txt">Table of n, a(n) for n = 1..10000</a>
%H A304273 B. Chen, R. Chen, J. Guo, S. Lee et al., <a href="http://arxiv.org/abs/1808.04304">On Base 3/2 and its Sequences</a>, arXiv:1808.04304 [math.NT], 2018.
%F A304273 For n>1, a(n) = A304274(n-1) - 1.
%e A304273 The number 5 in base 3/2 is 22, and the number 6 is 210. Therefore 210 is the smallest even integer with 3 digits in base 3/2. Its prefix 21 is 4: the smallest even integer with 2 digits in base 3/2.
%p A304273 b:= proc(n) option remember; `if`(n<2, 2*n,
%p A304273       (t-> t+irem(t, 2))(b(n-1)*3/2))
%p A304273     end:
%p A304273 a:= n-> b(n)-3/2*b(n-1):
%p A304273 seq(a(n), n=1..105);  # _Alois P. Heinz_, Jun 21 2018
%t A304273 b[n_] := b[n] = If[n < 2, 2*n, Function[t, t + Mod[t, 2]][3/2 b[n - 1]]]; a[n_] := b[n] - 3/2 b[n - 1]; Table[a[n], {n, 1, 105}] (* _Robert P. P. McKone_, Feb 12 2021 *)
%Y A304273 Cf. A005428, A070885, A073941, A081848, A024629, A246435, A304024, A304025, A303500, A304272, A304274.
%Y A304273 See also A205083.
%K A304273 nonn,base
%O A304273 1,1
%A A304273 _Tanya Khovanova_ and PRIMES STEP Senior group, May 09 2018
%E A304273 More terms from _Alois P. Heinz_, Jun 21 2018