|
%I #24 Jan 25 2015 19:27:02
%S 90,840,4320,59400,60480,917280,2419200,34992000,3714984000,
%T 460522782720,896168448000,2194698240000,39109522636800,
%U 229419122688000,239446056960000,650997662515200,3954407288832000,182279345504256000,883270791696384000,275333274192936960000
%N Numbers n such that n=(d_1+6)*(d_2+6)*...*(d_k+6) where d_1 d_2 ... d_k is the decimal expansion of n.
%H Hiroaki Yamanouchi and Max Alekseyev, <a href="/A097372/b097372.txt">Table of n, a(n) for n = 1..29</a> (contains all terms below 10^100)
%e 90 is in the sequence because 90 = (9+6)*(0+6).
%t Do[h=IntegerDigits[n];l=Length[h];If[n==Product[h[[k]]+6, {k, l}], Print[n]], {n, 130000000}]
%Y Cf. A097371, A098681, A098682.
%Y Cf. A098113, A098114, A097371, A115227.
%K base,nonn
%O 1,1
%A _Farideh Firoozbakht_, Sep 21 2004
%E More terms from _Giovanni Resta_, Jan 16 2006
%E a(19)-a(24) from _Hiroaki Yamanouchi_, Sep 08 2014
%E a(25)-a(29) from _Max Alekseyev_, Jan 25 2015
|
