|
%I #20 Jan 04 2016 14:55:29
%S 0,1,2,3,4,5,7,8,9,10,11,12,14,15,16,17,18,19,21,22,23,24,25,26,28,29,
%T 30,31,32,33,35,36,37,38,39,40,49,50,51,52,53,54,56,57,58,59,60,61,63,
%U 64,65,66,67,68,70,71,72,73,74,75,77,78,79,80,81,82,84,85,86
%N a(n)=Sum{d(i)*7^i: i=0,1,...,m}, where Sum{d(i)*6^i: i=0,1,...,m} is the base 6 representation of n.
%C Except for the offset, identical to A020657: a(n)=A020657(n+1). - _M. F. Hasler_, Oct 05 2014
%H Clark Kimberling, <a href="/A037470/b037470.txt">Table of n, a(n) for n = 0..1000</a>
%t Table[FromDigits[RealDigits[n, 6], 7], {n, 0, 100}] (* _Clark Kimberling_, Aug 14 2012 *)
%o (PARI) a(n)=vector(#n=digits(n, 6), i, 7^(#n-i))*n~ \\ _M. F. Hasler_, Oct 05 2014
%Y Essentially a duplicate of A020657. - _N. J. A. Sloane_, Jan 04 2016
%K nonn,base
%O 0,3
%A _Clark Kimberling_
%E Offset changed to 0 by _Clark Kimberling_, Aug 14 2012
|
