cp's OEIS Frontend

A247616 Numbers with more than two distinct digits in arithmetic progression.

%I A247616 #7 Sep 22 2014 02:46:52
%S A247616 123,135,147,159,210,234,246,258,321,345,357,369,420,432,456,468,531,
%T A247616 543,567,579,630,642,654,678,741,753,765,789,840,852,864,876,951,963,
%U A247616 975,987,1234,1357,2345,2468,3210,3456,3579,4321,4567,5432,5678,6420,6543
%N A247616 Numbers with more than two distinct digits in arithmetic progression.
%C A247616 A135643 without repdigit numbers (cf. A010785);
%C A247616 finite sequence with last and largest term a(96) = 9876543210.
%H A247616 Reinhard Zumkeller, <a href="/A247616/b247616.txt">Table of n, a(n) for n = 1..96</a>
%e A247616 a(40) = 2468 with constant digit differences = +2;
%e A247616 a(41) = 3210 with constant digit differences = -1;
%e A247616 a(42) = 3456 with constant digit differences = +1.
%o A247616 (Haskell)
%o A247616 a247616 n = a247616_list !! (n-1)
%o A247616 a247616_list = filter f [100 .. 9876543210] where
%o A247616    f x = head vs /= 0 && all (== 0) ws where
%o A247616          ws = zipWith (-) (tail vs) vs
%o A247616          vs = zipWith (-) (tail us) us
%o A247616          us = map (read . return) $ show x
%Y A247616 Subsequence of A135643.
%K A247616 nonn,base,fini,full
%O A247616 1,1
%A A247616 _Reinhard Zumkeller_, Sep 21 2014