Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
editing
approved
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PandigitalNumber.html">Pandigital Number</a>
Wikipedia, <a href="http://en.wikipedia.org/wiki/Pandigital_number">Pandigital number</a>
(Haskell)
import Data.List (unfoldr, nub); import Data.Tuple (swap)
a235708 n = f n where
f 1 = 1
f b = if isPandigital b n then b else f (b - 1) where
isPandigital b = (== b) . length . nub . unfoldr
(\x -> if x == 0 then Nothing else Just $ swap $ divMod x b)
-- Reinhard Zumkeller, May 12 2014
Cf. A049363.
nonn,base,new,nice
Reinhard Zumkeller, <a href="/A235708/b235708.txt">Table of n, a(n) for n = 1..10000</a>
approved
editing
editing
approved
_Joonas Pohjonen, _, May 02 2014
approved
editing
proposed
approved
editing
proposed
allocated for Joonas PohjonenLargest base in which n is pandigital.
1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 1, 3, 3, 3, 3, 2, 2, 3, 2, 2, 2, 3, 2, 2, 3, 3, 3, 3, 2, 2, 3, 2, 2, 2, 3, 2, 3, 3, 3, 2, 3, 2, 3, 3, 3, 3, 2, 2, 3, 2, 2, 2, 3, 2, 4, 2, 2, 4, 2, 2
1,2
The first occurrence of k in this sequence is given by A049363(k).
Cf. A049363
allocated
nonn,base
Joonas Pohjonen, May 02 2014
approved
editing
allocated for Joonas Pohjonen
recycled
allocated
editing
approved