A172439 - OEIS

A172439

Fibonacci sequence rewritten using A006942.

6, 2, 2, 5, 5, 5, 7, 25, 52, 54, 55, 76, 244, 555, 533, 626, 673, 2563, 5574, 4272, 6365, 26646, 23322, 57653, 46567, 35655, 252565, 266427, 523722, 524556, 755646, 2546566, 5237566, 5554537, 5365773, 6553465, 24656555, 54253723, 56677266

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

COMMENTS

For Fibonacci numbers containing two or more digits, just concatenate the digits.

Digit 0 ==> 6;1 ==> 2;2 ==> 5;3 ==> 5;4 ==> 4;5 ==> 5;6 ==> 6;7 ==> 3;8 ==> 7;9 ==> 6.

LINKS

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Index entries for sequences related to calculator display

EXAMPLE

4181 is a Fibonacci number and using A006942 this is 4272.

MAPLE

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

MATHEMATICA

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 *)

PROG

(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

CROSSREFS

Cf. A000045.

Sequence in context: A083286 A247818 A325039 * A169684 A259838 A256576

Adjacent sequences: A172436 A172437 A172438 * A172440 A172441 A172442

KEYWORD

nonn,base

AUTHOR

Parthasarathy Nambi, Feb 02 2010

EXTENSIONS

More terms from R. J. Mathar, Feb 08 2010

STATUS

approved