|
%I #8 Sep 01 2019 18:17:42
%S 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,24,26,28,30,33,
%T 36,39,40,44,48,50,55,60,66,70,77,80,88,90,99,100,110,111,112,113,114,
%U 115,116,117,118,119,120,122,124,126,128,130,133,136,139,140,144,148
%N Numbers such that every digit is a multiple of the digit to its left.
%C The number of n-digit terms is (n^4+22n^3+95n^2+98n)/24. - David Wasserman
%H Robert Israel, <a href="/A096105/b096105.txt">Table of n, a(n) for n = 1..10000</a>
%p for i from 1 to 9 do g(i):= [seq(t,t=0..9,i)] od: g(0):= [0]:
%p A[1]:= [$1..9]:
%p for d from 2 to 4 do A[d]:= map(t -> op(10*t+~g(t mod 10)),A[d-1]) od:
%p map(op,[seq(A[d],d=1..4)]); # _Robert Israel_, Sep 01 2019
%Y Cf. A096106.
%K base,easy,nonn
%O 1,2
%A _Amarnath Murthy_, Jun 26 2004
%E Edited by _David Wasserman_, Dec 28 2005
|
