This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A084675 #9 Jun 11 2016 11:19:23
%S A084675 1,6,6,48,48,144,432,3888,31104,248832,1741824,6967296,62705664,
%T A084675 501645312,4514807808,18059231232,144473849856,577895399424,
%U A084675 4623163195392,9246326390784,9246326390784,36985305563136
%N A084675 Product of the first n digits of the Golden Ratio phi = 1.6180339... (treating 0's as if they were 1's).
%F A084675 Phi = (sqrt(5)+1)/2 = 1.618033988749894848204586834...
%p A084675 Digits:=100: Phi:= (sqrt(5)+1)/2: A084675:=proc(n) options remember: local d: d:=trunc(10*frac(Phi*10^(n-2))): if n=1 then RETURN(d) else RETURN(A084675(n-1)*piecewise(d<>0,d,1)) fi: end; seq(A084675(n),n=1..25); (C. Ronaldo)
%t A084675 FoldList[Times,(RealDigits[GoldenRatio,10,30][[1]]/.(0->1))] (* _Harvey P. Dale_, Jun 11 2016 *)
%o A084675 (PARI) phitorial(n) = { default(realprecision,10000); p = (sqrt(5)+1)/20; default(realprecision,28); for(j=1,n, eitor=1; e1=p; for(x=1,j, d = e1*10; d1=floor(d); if(d1<>0,eitor*=d1); e1 = frac(d); ); print1(eitor",") ) }
%Y A084675 Cf. A074850.
%K A084675 easy,nonn,base
%O A084675 1,2
%A A084675 _Cino Hilliard_, Jun 29 2003
%E A084675 Definition clarified by _Harvey P. Dale_, Jun 11 2016.