OFFSET
1,1
COMMENTS
The biggest of the first 100 terms is a(40) = 1919922020352 (Kris Katterjohn).
From Hans Havermann, Sep 16 2020: (Start)
If we take a record to be a term greater than or equal to the previous record, then records occur at:
a(1)-a(21)
a(39)-a(40)
a(170)-a(179)
a(231)-a(240)
a(720)-a(729)
a(2211)-a(2239)
a(7172)-a(7211)
a(16819)-a(16828)
a(28374)-a(28385)
a(350156)-a(350165)
a(1102329)-a(1102370)
a(1102370) = 2^165*3^87*5^10*7^15*72547
(End)
LINKS
Hans Havermann, Table of n, a(n) for n = 1..10000
Hans Havermann, Graph of 10^5 terms
EXAMPLE
a(1) = 2, multiplied by the 1st digit of the sequence (2), is 4;
a(2) = 4, multiplied by the 2nd digit of the sequence (4), is 16;
a(3) = 16, multiplied by the 3rd digit of the sequence (1), is 16;
a(4) = 16, multiplied by the 4th digit of the sequence (6), is 96;
a(5) = 96, multiplied by the 5th digit of the sequence (1), is 96;
(...)
a(21) = 169305292800, multiplied by the 21st digit of the sequence (0), is 0; we don't extend the sequence with 0 but with the smallest unused integer yet, which is 1; thus a(22) = 1. Etc.
MATHEMATICA
FromDigits /@ Nest[Append[#1, If[#2 == 0, Block[{k = 1}, While[! FreeQ[FromDigits /@ #1, k], k++]; IntegerDigits[k]], IntegerDigits[#2]]] & @@ {#1, FromDigits[#1[[-1]] ]*Flatten[#1][[#2]]} & @@ {#, Length@ #} &, {{2}}, 36] (* Michael De Vlieger, Sep 16 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Eric Angelini and Kris Katterjohn, Aug 16 2020
STATUS
approved