OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 [Corrected by Sean A. Irvine, Mar 19 2024]
EXAMPLE
13 follows 29 as the smallest prime number not included earlier and differing at every digit position with 29.
PROG
(Haskell)
import Data.List (delete)
a068863 n = a068863_list !! (n-1)
a068863_list = f "x" (map show a000040_list) where
f p ps = g ps where
g (q:qs)
| and $ zipWith (/=) p q = (read q :: Int) : f q (delete q ps)
| otherwise = g qs
-- Reinhard Zumkeller, Dec 21 2013 [Warning: this code might not be correct - Sean A. Irvine, Mar 19 2024]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Mar 13 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Feb 02 2003
STATUS
approved