[go: up one dir, main page]

login
Revision History for A129098 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
a(n) = A129095(2^n + 2^(n-1) - 1) for n>=1.
(history; published version)
#8 by Alois P. Heinz at Tue Mar 10 15:32:48 EDT 2020
STATUS

editing

approved

#7 by Alois P. Heinz at Tue Mar 10 15:32:46 EDT 2020
EXTENSIONS

a(1716) from Michael De Vlieger, Mar 10 2020.

STATUS

approved

editing

#6 by Alois P. Heinz at Tue Mar 10 15:32:18 EDT 2020
STATUS

proposed

approved

#5 by Michael De Vlieger at Tue Mar 10 15:21:16 EDT 2020
STATUS

editing

proposed

#4 by Michael De Vlieger at Tue Mar 10 15:21:13 EDT 2020
DATA

1, 5, 23, 135, 1119, 14319, 300015, 10636463, 652217135, 70382845743, 13551477257519, 4706105734658351, 2973879284783561007, 3444999327807280048431, 7362415635261959807011119, 29188908702092573515760044335

MATHEMATICA

Block[{e = 18, s}, s = Nest[Append[#1, If[EvenQ[#2], #1[[#2/2]], 2 #1[[-1]] + #1[[-2]] ] ] & @@ {#, Length@ # + 1} &, {1}, 2^e]; Array[s[[2^# + 2^(# - 1) - 1]] &, e - 1]] (* Michael De Vlieger, Mar 10 2020 *)

EXTENSIONS

a(17) from Michael De Vlieger, Mar 10 2020.

STATUS

approved

editing

#3 by Russ Cox at Fri Mar 30 18:37:03 EDT 2012
AUTHOR

_Paul D. Hanna (pauldhanna(AT)juno.com), _, Apr 11 2007

Discussion
Fri Mar 30
18:37
OEIS Server: https://oeis.org/edit/global/213
#2 by N. J. A. Sloane at Sat Nov 10 03:00:00 EST 2007
KEYWORD

easy,nonn,new

AUTHOR

Paul D . Hanna (pauldhanna(AT)juno.com), Apr 11 2007

#1 by N. J. A. Sloane at Fri May 11 03:00:00 EDT 2007
NAME

a(n) = A129095(2^n + 2^(n-1) - 1) for n>=1.

DATA

1, 5, 23, 135, 1119, 14319, 300015, 10636463, 652217135, 70382845743, 13551477257519, 4706105734658351, 2973879284783561007, 3444999327807280048431, 7362415635261959807011119

OFFSET

1,2

COMMENTS

b(n)=A129095(n) obeys the recurrence: b(n) = b(n/2) (n even), b(n) = 2*b(n-1) + b(n-2) (n odd >1), with b(1) = 1.

PROG

(PARI)

CROSSREFS
KEYWORD

easy,nonn

AUTHOR

Paul D Hanna (pauldhanna(AT)juno.com), Apr 11 2007

STATUS

approved