%I #15 Sep 01 2020 06:25:20
%S 6,2,2,5,5,5,7,25,52,54,55,76,244,555,533,626,673,2563,5574,4272,6365,
%T 26646,23322,57653,46567,35655,252565,266427,523722,524556,755646,
%U 2546566,5237566,5554537,5365773,6553465,24656555,54253723,56677266
%N Fibonacci sequence rewritten using A006942.
%C For Fibonacci numbers containing two or more digits, just concatenate the digits.
%C Digit 0 ==> 6;1 ==> 2;2 ==> 5;3 ==> 5;4 ==> 4;5 ==> 5;6 ==> 6;7 ==> 3;8 ==> 7;9 ==> 6.
%H Harvey P. Dale, <a href="/A172439/b172439.txt">Table of n, a(n) for n = 0..1000</a>
%H <a href="/index/Ca#calculatordisplay">Index entries for sequences related to calculator display</a>
%e 4181 is a Fibonacci number and using A006942 this is 4272.
%p A172439 := proc(n) if n = 0 then 6; else F := convert(combinat[fibonacci](n),base,10) ; dgs := [] ; for i from 1 to nops(F) do dgs := [op(dgs),op(1+op(i,F),[ 6, 2, 5, 5, 4, 5, 6, 3, 7, 6])] ; end do ; add( op(i,dgs)*10^(i-1),i=1..nops(dgs)) ; end if; end proc: seq(A172439(n),n=0..40) ; # _R. J. Mathar_, Feb 08 2010
%t FromDigits[IntegerDigits[#]/.{0->6,1->2,2->5,3->5,7->3,8->7,9->6}]&/@ Fibonacci[ Range[0,40]] (* _Harvey P. Dale_, Aug 31 2020 *)
%o (PARI) my(A006942=[6,2,5,5,4,5,6,3,7,6]); a(n) = if(n==0,6, fromdigits(apply(d->A006942[d+1], digits(fibonacci(n))))); \\ _Kevin Ryde_, Sep 01 2020
%Y Cf. A000045.
%K nonn,base
%O 0,1
%A _Parthasarathy Nambi_, Feb 02 2010
%E More terms from _R. J. Mathar_, Feb 08 2010