|
Search: id:A038526
|
|
|
| A038526 |
|
Concatenation of prime factors of n-th Fibonacci number. |
|
+0
2
|
|
| 2, 3, 5, 222, 13, 37, 217, 511, 89, 222233, 233, 1329, 2561, 3747, 1597, 2221719, 37113, 351141, 213421, 89199, 28657, 2222233723, 553001, 233521, 21753109, 31329281, 514229, 2225113161, 5572417, 37472207, 28919801, 15973571
(list; graph; listen)
|
|
|
OFFSET
|
3,1
|
|
|
FORMULA
|
a(n)=A037276(A000045(n)). - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Oct 12 2007
|
|
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 (mathar(AT)strw.leidenuniv.nl), Oct 12 2007
|
|
CROSSREFS
|
Sequence in context: A041655 A082520 A062597 this_sequence A082755 A042067 A042579
Adjacent sequences: A038523 A038524 A038525 this_sequence A038527 A038528 A038529
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jeff Burch (gburch(AT)erols.com)
|
|
|
Search completed in 0.002 seconds
|
