cp's OEIS Frontend

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.

A098114 Numbers n such that n=(d_1+4)*(d_2+4)*...*(d_k+4) where d_1 d_2 ... d_k is the decimal expansion of n.

This page as a plain text file.
%I A098114 #11 Jan 25 2015 19:28:17
%S A098114 120,315,4752,7744,24960,57915,3386880
%N A098114 Numbers n such that n=(d_1+4)*(d_2+4)*...*(d_k+4) where d_1 d_2 ... d_k is the decimal expansion of n.
%C A098114 Suppose that m is in the sequence and A is set of the digits of m if 6, s times appears in A, then 10^s divides m, also if 1 is in A and at least one even number be in A then 10 divides m, etc.
%C A098114 No other terms below 10^100. - _Max Alekseyev_, Jan 25 2015
%e A098114 3386880 is in the sequence because
%e A098114 3386880=(3+4)*(3+4)*(8+4)*(6+4)*(8+4)*(8+4)*(0+4).
%t A098114 Do[d=IntegerDigits[n];k=Length[d];If[n==Product[d[[j]]+4, {j, k}], Print[n]], {n, 1030000000}]
%t A098114 Select[Range[4000000],#==Times@@(IntegerDigits[#]+4)&] (* _Harvey P. Dale_, Dec 11 2012 *)
%Y A098114 Cf. A097371, A097372, A098113.
%K A098114 base,more,nonn
%O A098114 1,1
%A A098114 _Farideh Firoozbakht_, Sep 24 2004