|
%I #21 Jul 10 2014 14:20:31
%S 1,2,3,4,5,6,7,8,9,11,12,13,14,15,16,17,18,19,35,55,62,64,66,68,75,95,
%T 236,315,324,575,612,828,935,944,4384,5175,7688,7735,8128,8672,9135,
%U 9144,9575,91575
%N Numbers n such that A = n - DigitProd(n) is divisible by the largest power of 10 <= A.
%C Trivially numbers in A037124 satisfy this but are not contained in this sequence.
%e 35-3*5 = 20 is divisible by the highest power of 10 below it (10^1). So 20 is a member of this sequence.
%o (PARI) DP(n)={p=1; d=digits(n); for(i=1, #d, p*=d[i]); return(p)}
%o for(k=1,10^7,if(n%10!=0&&(n-DP(n))%(10^(#Str(n-DP(n))-1))==0,print1(n,", ")))
%Y Cf. A055642, A037124, A242948.
%K nonn,base,fini,full
%O 1,2
%A _Derek Orr_, May 30 2014
|
