|
%I #16 May 02 2020 21:37:02
%S 2,11,15,19,21,75,78,99,108,114,120,135,141,147,156,177,180,198,201,
%T 210,216,225,228,694,698,714,722,738,742,894,898,954,970,978,990,1014,
%U 1022,1054,1070,1102,1110,1138,1142,1178,1190,1202,1210,1294,1298,1334
%N Numbers that have one of every digit in some base.
%C Also known as pandigital numbers, especially in base 10.
%H Alois P. Heinz, <a href="/A061845/b061845.txt">Rows n = 2..8, flattened</a>
%e Base 3 values are 102_3 = 11, 120_3 = 15, 201_3 = 19, 210_3 = 21.
%e Triangle begins:
%e 2;
%e 11, 15, 19, 21;
%e 75, 78, 99, 108, 114, 120, 135, 141, 147, 156, 177, 180, 198, 201, ...
%e 694, 698, 714, 722, 738, 742, 894, 898, 954, 970, 978, 990, 1014, 1022, ...
%e ...
%t dtn[ L_, base_ ] := Fold[ base*#1+#2&, 0, L ] f[ n_ ] := Map[ dtn[ #, n ]&, Select[ Permutations[ Range[ 0, n-1 ] ], First[ # ]>0& ] ] Flatten[ Join[ Table[ f[ i ], {i, 2, 5} ] ] ]
%Y Column k=1 gives A049363 (for n>1).
%Y Last elements of rows give A062813.
%Y Cf. A050278, A134640, A001563 (row lengths).
%K base,easy,nice,nonn,tabf
%O 2,1
%A _Erich Friedman_, Jun 23 2001
|
