|
%I #11 Aug 15 2015 10:27:13
%S 0,1,2,3,4,5,6,7,8,9,11,10,21,31,41,12,51,13,61,14,71,15,81,16,91,17,
%T 101,18,111,19,22,20,32,121,42,52,62,23,72,24,82,25,92,26,102,27,112,
%U 28,122,29,33,30,43,131,53,132,63,73,83,34,93,35,103,36,113,37,123,38
%N Permutation of nonnegative integers based on Champernowne's constant 0.123456789101112131415...
%C A261293(n) = a(a(n)). - _Reinhard Zumkeller_, Aug 14 2015
%H Reinhard Zumkeller, <a href="/A065649/b065649.txt">Table of n, a(n) for n = 0..10000</a>
%H Klaus Strassburger, <a href="/A065649/a065649.jpg">Illustration</a>
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%F a(n) = if n = 0 then 0 else 10*(A065648(n)-1) + A033307(n-1).
%o (Haskell)
%o a065649 n = a065649_list !! n
%o a065649_list = zipWith (+)
%o (map ((* 10) . subtract 1) a065648_list) (0 : a033307_list)
%o -- _Reinhard Zumkeller_, Aug 13 2015
%Y A033307, A065648, A065650.
%Y Cf. A261279 (fixed points), A261293, A261333.
%K base,nice,nonn,look
%O 0,3
%A Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Nov 09 2001
%E Offset and defining formula adjusted by _Reinhard Zumkeller_, Aug 13 2015
|
