|
%I #15 Aug 05 2023 12:59:47
%S 1,11,2,25,50,27,500,7,4,2500,3,71,250000,259,8,750000,10,39,5000000,
%T 2598,7500000000,77,9,6,2500000000,5,53,533,75000000001,38,383,43,
%U 75000000000000,35,84,13,103,12,5000000000000,28,67,30,48,25000000000000000,21,504,78,61,87
%N Lexicographically earliest permutation of the positive integers such that the successive cumulative products reproduce the sequence itself, digit by digit.
%C If we want the sequence to be the lexicographically earliest permutation of the integers > 0, we must start with a(1) = 1 and a(2) = 11. With a(2) < 11, the sequence stops immediately.
%H Eric Angelini, <a href="http://cinquantesignes.blogspot.com/2023/08/cumulative-sums.html">Cumulative Sums</a>, Personal blog.
%e a(1) = 1
%e a(1) * a(2) = 11
%e a(1) * a(2) * a(3) = 22
%e a(1) * a(2) * a(3) * a(4) = 550
%e a(1) * a(2) * a(3) * a(4) * a(5) = 27500
%e a(1) * a(2) * a(3) * a(4) * a(5) * a(6) = 742500; etc.
%e The succession of the above results is:
%e 1, 11, 22, 550, 27500, 742500, ...
%e The first terms of the sequence are:
%e 1, 11, 2, 25, 50, 27, 500, 7, 4, 2500,, ...
%e We see that the successive digits are the same in the two sequences.
%t Nest[(a=#;AppendTo[a,(new=Flatten[IntegerDigits/@Table[Times@@a[[;;i]],{i,Length@a}]][[Length@Flatten[IntegerDigits/@a]+1;;]];
%t k=1;While[MemberQ[a,FromDigits@new[[;;k]]]||new[[k+1]]==0,k++];FromDigits@new[[;;k]])])&,{1,11,2,25},45] (* _Giorgos Kalogeropoulos_, Aug 05 2023 *)
%Y Cf. A309151, A364664.
%K base,nonn
%O 1,2
%A _Eric Angelini_, Aug 03 2023
|
