OFFSET

1,2

LINKS

Paul Tek, Table of n, a(n) for n = 1..10000

EXAMPLE

11 follows 20 as the smallest number not included earlier and differing at every digit position.

PROG

(Haskell)

import Data.List (delete)

a068861 n = a068861_list !! (n-1)

a068861_list = f "x" (map show [1..]) where

f u us = g us where

g (v:vs)

| and $ zipWith (/=) u v = (read v :: Int) : f v (delete v us)

| otherwise = g vs

-- Reinhard Zumkeller, Dec 21 2013

CROSSREFS

KEYWORD

nonn,base

AUTHOR

Amarnath Murthy, Mar 13 2002

STATUS

approved