cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A178478 Permutations of 12345678: Numbers having each of the decimal digits 1..8 exactly once, and no other digit.

This page as a plain text file.
%I A178478 #14 Dec 03 2014 07:10:44
%S A178478 12345678,12345687,12345768,12345786,12345867,12345876,12346578,
%T A178478 12346587,12346758,12346785,12346857,12346875,12347568,12347586,
%U A178478 12347658,12347685,12347856,12347865,12348567,12348576,12348657,12348675,12348756,12348765
%N A178478 Permutations of 12345678: Numbers having each of the decimal digits 1..8 exactly once, and no other digit.
%C A178478 It would be nice to have a simple explicit formula for the n-th term.
%C A178478 An efficient procedure for generating the n-th term of this sequence can be found at A178475. - _Nathaniel Johnston_, May 19 2011
%H A178478 Nathaniel Johnston, <a href="/A178478/b178478.txt">Table of n, a(n) for n = 1..10000</a>
%t A178478 Take[FromDigits/@Permutations[Range[8]],40] (* _Harvey P. Dale_, Oct 29 2014 *)
%o A178478 (PARI) is_A178478(x)= { vecsort(Vec(Str(x)))==Vec("12345678") }
%o A178478 (PARI) A178478(n)={my(b=vector(7,k,1+(n-1)%(k+1)!\k!),t=b[7], d=vector(7,i,i+(i>=t)));for(i=1,6,t=10*t+d[b[7-i]]; d=vecextract(d,Str("^"b[7-i]))); t*10+d[1]} \\ - _M. F. Hasler_ (following N. Johnston's comment), Jan 10 2012
%Y A178478 Cf. A030298, A030299, A055089, A060117, A178475-A178477, A191820.
%K A178478 fini,nonn,easy,base
%O A178478 1,1
%A A178478 _M. F. Hasler_, Oct 09 2010