|
|
A117079
|
|
a(1) = 1; a(n) = 2*a(n-1) + (number of digits in a(n-1)).
|
|
1
|
|
|
1, 3, 7, 15, 32, 66, 134, 271, 545, 1093, 2190, 4384, 8772, 17548, 35101, 70207, 140419, 280844, 561694, 1123394, 2246795, 4493597, 8987201, 17974409, 35948826, 71897660, 143795328, 287590665, 575181339, 1150362687, 2300725384, 4601450778, 9202901566
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
1*2+1=3
3*2+1=7
7*2+1=15
15*2+2=3
etc.
|
|
MATHEMATICA
|
a[1] = 1; a[n_] := a[n] = 2a[n - 1] + Floor[Log[10, a[n - 1]]] + 1 (* Robert G. Wilson v, Apr 20 2006 *)
RecurrenceTable[{a[1]==1, a[n]==2a[n-1]+IntegerLength[a[n-1]]}, a[n], {n, 40}] (* Harvey P. Dale, May 03 2011 *)
NestList[2#+IntegerLength[#]&, 1, 30] (* Harvey P. Dale, Oct 01 2012 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Zededarian Zee (Zededarian(AT)Gmail.com), Apr 19 2006
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|