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.

A096927 Numbers n for which there are exactly six k such that n = k + (product of nonzero digits of k).

This page as a plain text file.
%I A096927 #6 Aug 16 2018 12:48:44
%S A096927 2072,3525,9170,9190,11098,11116,11474,11564,12072,12125,13525,19170,
%T A096927 19190,20165,20228,20445,21125,24305,29395,30488,31105,31255,31305,
%U A096927 31825,40339,40344,40455,41255,42355,45555,50745,51175,54742,58300
%N A096927 Numbers n for which there are exactly six k such that n = k + (product of nonzero digits of k).
%e A096927 1688, 1928, 1991, 2036, 2052 and 2060 are the only six k such that k + (product of nonzero digits of k) = 2072, hence 2072 is a term.
%t A096927 With[{nn=60000},Select[Tally[Table[n+Times@@(IntegerDigits[n]/.(0->1)),{n,nn}]],#[[2]]==6&&#[[1]]<=nn&]][[All,1]]//Sort(* _Harvey P. Dale_, Aug 16 2018 *)
%o A096927 (PARI) {c=6;z=60000;v=vector(z);for(n=1,z+1,k=addpnd(n);if(k<=z,v[k]=v[k]+1));for(j=1,length(v),if(v[j]==c,print1(j,",")))} \\for function addpnd see A096922
%Y A096927 Cf. A063114, A096347, A096922 - A096926, A096928 - A096931.
%K A096927 nonn,base
%O A096927 1,1
%A A096927 _Klaus Brockhaus_, Jul 15 2004