[go: up one dir, main page]

login
A131841
Additive persistence of Woodall numbers.
1
0, 0, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 3, 3, 3, 3, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 2, 2, 3, 3, 3, 3, 3, 3, 2, 3, 2, 3, 2, 3, 3, 3, 3, 3, 3, 3, 2, 2, 3, 2, 2, 3, 3, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 3, 2, 3, 3, 3
OFFSET
1,5
EXAMPLE
Woodall number 159 --> 1+5+9=15 --> 1+5=6 thus persistence is 2
MAPLE
with(numtheory): with(combinat): P:=proc(n) local a, t; t:=0; a:=n*2^n-1; while a>9 do t:=t+1; a:=convert(convert(a, base, 10), `+`); od; t;
end: seq(P(i), i=1..10^2);
CROSSREFS
Sequence in context: A256707 A151963 A191291 * A309432 A230261 A242306
KEYWORD
easy,nonn,base
AUTHOR
EXTENSIONS
Corrected entries and Maple code by Paolo P. Lava, Dec 19 2017
STATUS
approved