OFFSET
3,1
LINKS
Alois P. Heinz, Table of n, a(n) for n = 3..380
FORMULA
MAPLE
A055642 := proc(n) if n =0 then 1 ; else ilog10(n)+1 ; fi ; end: catDigs := proc(L) local a, k, i ; a := 0 ; for i from 1 to nops(L) do a := a*10^A055642(L[i])+L[i] ; od ; end: A037276 := proc(n) local L, i, ifs, j ; if n = 1 then 0 else ifs := ifactors(n)[2] ; L := [] ; for i in ifs do for j from 1 to op(2, i) do L := [op(L), op(1, i)] ; od: od: catDigs(L) ; fi ; end: A038526 := proc(n) A037276(combinat[fibonacci](n)) ; end: seq(A038526(n), n=3..20) ; # R. J. Mathar, Oct 12 2007
# second Maple program:
F:= n-> (<<0|1>, <1|1>>^n)[1, 2]:
a:= n-> parse(cat(sort(map(i-> i[1]$i[2], ifactors(F(n))[2]))[])):
seq(a(n), n=3..40); # Alois P. Heinz, Aug 17 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 27 2010
STATUS
approved