%I #16 Sep 07 2013 09:42:34
%S 0,1,2,3,4,5,6,7,8,9,10,12,14,16,18,20,22,24,26
%N Duplicate of A098952.
%o (Liberty Basic)DO:x$ = STR$(a):l = LEN(x$):m = a MOD l:IF m = 0 THEN PRINT a:a = a + 1:LOOP UNTIL Inkey$ <> "":END
%K dead
%O 0,3
