cp's OEIS Frontend

A214318 Replace the word A214317(n) with its position in A007931.

%I A214318 #26 Mar 31 2017 00:34:30
%S A214318 1,4,9,19,40,81,164,329,659,1320,2641,5283,10568,21137,42276,84553,
%T A214318 169107,338216,676433,1352868,2705737,5411475,10822952,21645905,
%U A214318 43291811,86583624,173167249,346334500,692669001,1385338003,2770676008,5541352017,11082704035
%N A214318 Replace the word A214317(n) with its position in A007931.
%H A214318 Alois P. Heinz, <a href="/A214318/b214318.txt">Table of n, a(n) for n = 1..1000</a>
%F A214318 a(n) = A182028(n-1)+2^n-1.
%F A214318 a(n) = 2*a(n-1) + A003842(n-1) for n>1, a(1) = 1. - _Alois P. Heinz_, Jul 19 2012
%e A214318 A214317(5) = 12112 is the 40th term of A007931, so a(5)=40.
%p A214318 S:= proc(n) option remember;
%p A214318       `if`(n<2, [2-n], [S(n-1)[], S(n-2)[]])
%p A214318     end:
%p A214318 a:= proc(n) option remember; local k;
%p A214318       for k while nops(S(k))<n do od;
%p A214318       `if`(n=1, 1, 2*a(n-1) +S(k)[n])
%p A214318     end:
%p A214318 seq(a(n), n=1..50);  # _Alois P. Heinz_, Jul 19 2012
%t A214318 nesting = 6; A003849 = Flatten[Nest[{#, #[[1]]}&, {0, 1}, nesting]]; A182028[n_] := FromDigits[Take[A003849, n+1], 2]; a[n_] := A182028[n-1] + 2^n - 1; Table[a[n], {n, 1, Length[A003849]}] (* _Jean-François Alcover_, Feb 13 2016 *)
%Y A214318 Cf. A003842, A214317, A007931.
%K A214318 nonn
%O A214318 1,2
%A A214318 _N. J. A. Sloane_, Jul 12 2012
%E A214318 More terms from _Alois P. Heinz_, Jul 19 2012