OFFSET
1,2
MATHEMATICA
Module[{nn=20, padseq}, padseq=LinearRecurrence[{0, 1, 1}, {1, 0, 0}, nn]; Table[FromDigits[ Flatten[ IntegerDigits/@Take[padseq, n]]], {n, nn}]] (* Harvey P. Dale, Feb 18 2024 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Omar E. Pol, Nov 10 2007
STATUS
approved