|
Search: id:A060013
|
|
| |
|
| 1, 2, 3, 5, 9, 15, 27, 51, 99, 195, 387, 771, 1539, 3075, 6147, 12291, 24579, 49155, 98307, 196611, 393219, 786435, 1572867, 3145731, 6291459, 12582915, 25165827, 50331651, 100663299, 201326595, 402653187, 805306371, 1610612739
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
FORMULA
|
For n>4: a(n) =2a(n-1)-3. For n>3: a(n) =3*2^(n-3)+3 =3*A000051(n-3) =A007283(n-3)+3.
a(n+1) = A060000(a(n)+1), a(1) = 1. - Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Mar 04 2008
|
|
MATHEMATICA
|
h = f = {1, 2}; a = 1; b = 2; Do[ g = Sort[ h ]; If[ g[ [ -1 ] ] + 1 == n, c = a + b, k = 1; While[ g[ [ k ] ] == k, k++ ]; c = k ]; a = b; b = c; h = Append[ h, c ]; If[ c > g[ [ -1 ] ], f = Append[ f, c ] ], { n, 3, 10^4 } ]; f
|
|
CROSSREFS
|
Cf. A060000.
Sequence in context: A022858 A090905 A065956 this_sequence A092424 A167510 A066726
Adjacent sequences: A060010 A060011 A060012 this_sequence A060014 A060015 A060016
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson V (rgwv(AT)rgwv.com), Mar 15 2001
|
|
EXTENSIONS
|
Formulae and more terms from Henry Bottomley (se16(AT)btinternet.com) and Larry Reeves (larryr(AT)acm.org), Mar 19 2001
|
|
|
Search completed in 0.002 seconds
|
