|
%I #19 Apr 15 2014 11:41:18
%S 0,1,2,3,4,5,6,7,8,9,10,21,32,43,54,65,76,87,98,210,321,432,543,654,
%T 765,876,987,3210,4321,5432,6543,7654,8765,9876,43210,54321,65432,
%U 76543,87654,98765,543210,654321,765432,876543,987654
%N Nonnegative numbers with digits in descending order that differ exactly by 1.
%C This finite sequence has 55 members. The last member is 9876543210. There are 11-k members with k digits. See A052016 for primes in this sequence. All members with 3 or more digits are straight-line numbers A135643.
%e Last 10 members of this finite sequence:
%e a(45)=6543210
%e a(46)=7654321
%e a(47)=8765432
%e a(48)=9876543
%e a(49)=76543210
%e a(50)=87654321
%e a(51)=98765432
%e a(52)=876543210
%e a(53)=987654321
%e a(54)=9876543210
%t fQ[n_]:=Module[{id=IntegerDigits[n]}, n<10 || Union[Differences[id]]=={-1}]; Select[Range[0, 100000], fQ] (* _Vladimir Joseph Stephan Orlovsky_, Dec 29 2010 *)
%t Sort[Flatten[With[{t=Range[9,0,-1]},Table[FromDigits/@Partition[t,n,1],{n,10}]]]] (* _Harvey P. Dale_, Oct 31 2013 *)
%Y Cf. A052016, A135643, A138141.
%K base,easy,fini,nonn
%O 1,3
%A _Omar E. Pol_, Mar 19 2008
%E Examples corrected by _Omar E. Pol_, Dec 06 2008
|
