A247616 Numbers with more than two distinct digits in arithmetic progression.
123, 135, 147, 159, 210, 234, 246, 258, 321, 345, 357, 369, 420, 432, 456, 468, 531, 543, 567, 579, 630, 642, 654, 678, 741, 753, 765, 789, 840, 852, 864, 876, 951, 963, 975, 987, 1234, 1357, 2345, 2468, 3210, 3456, 3579, 4321, 4567, 5432, 5678, 6420, 6543
Offset: 1
Examples
a(40) = 2468 with constant digit differences = +2; a(41) = 3210 with constant digit differences = -1; a(42) = 3456 with constant digit differences = +1.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..96
Crossrefs
Subsequence of A135643.
Programs
-
Haskell
a247616 n = a247616_list !! (n-1) a247616_list = filter f [100 .. 9876543210] where f x = head vs /= 0 && all (== 0) ws where ws = zipWith (-) (tail vs) vs vs = zipWith (-) (tail us) us us = map (read . return) $ show x
Comments