cp's OEIS Frontend

A109834 Startorial numbers: product of initial digits of integers 1 through n.

%I A109834 #14 Nov 03 2023 12:00:21
%S A109834 1,2,6,24,120,720,5040,40320,362880,362880,362880,362880,362880,
%T A109834 362880,362880,362880,362880,362880,362880,725760,1451520,2903040,
%U A109834 5806080,11612160,23224320,46448640,92897280,185794560,371589120,1114767360
%N A109834 Startorial numbers: product of initial digits of integers 1 through n.
%C A109834 This is a base 10 sequence; the equivalent exists for other bases. For base 1 and base 2, this gives the all-one sequence (A000012).
%H A109834 G. C. Greubel, <a href="/A109834/b109834.txt">Table of n, a(n) for n = 1..1000</a>
%H A109834 A. Cobham, <a href="http://dx.doi.org/10.1007/BF01706087">Uniform Tag Sequences</a>, Mathematical Systems Theory, 6 (1972), 164-192.
%F A109834 a(n) = Product_{i = 1..n} A000030(i).
%F A109834 a(n+1) = a(n) * InitialDigitOf(n).
%F A109834 a(n) = Product_{i = 1..n} floor(i / 10^(floor(log_10(i)))) where log_10(i) is the logarithm of i in base 10.
%e A109834 a(30) = 1*2*3*4*5*6*7*8*9*1*1*1*1*1*1*1*1*1*1*2*2*2*2*2*2*2*2*2*2*3 = 1114767360.
%t A109834 Table[Product[Floor[k/10^(Floor[Log10[k]])], {k,1,n}], {n,1,50}] (* _G. C. Greubel_, May 16 2017 *)
%t A109834 FoldList[Times,Table[IntegerDigits[n][[1]],{n,30}]] (* _Harvey P. Dale_, Aug 07 2019 *)
%Y A109834 Cf. A000030, A000040, A001221, A001222, A112264, A112266.
%K A109834 base,easy,nonn
%O A109834 1,2
%A A109834 _Jonathan Vos Post_, Aug 31 2005