%I #14 Mar 31 2017 22:18:15
%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,10,11,12,13,14,15,16,17,18,19,
%T 110,111,112,113,114,115,20,21,22,23,24,25,26,27,28,29,210,211,212,
%U 213,214,215,30,31,32,33,34,35,36,37,38,39,310,311,312,313,314,315,40,41
%N Bad hexadecimal notation for n: write n in hexadecimal notation, replacing digit ten with "10", digit eleven with "11", ... and digit fifteen with "15".
%H Alois P. Heinz, <a href="/A057946/b057946.txt">Table of n, a(n) for n = 0..10000</a>
%e a(15)=15 since it is represented by the digit "15" base 16. a(21)=15 since it is represented by the digit "1" followed by the digit "5" base 16.
%p a:= proc(n) local i, m, r ; m:=n; r:=NULL;
%p if n=0 then return 0 fi;
%p for i from 0 while m>0 do
%p r:= irem(m, 16, 'm'), r
%p od; parse(cat(r))
%p end:
%p seq(a(n), n=0..80); # _Alois P. Heinz_, Jun 23 2014
%t f[n_] := FromDigits@ Flatten@ IntegerDigits@ IntegerDigits[n, 16]; Array[f, 66, 0] (* _Robert G. Wilson v_, Jun 23 2014 *)
%Y Cf. A057947 for ambiguous numbers, A055645 for a better representation of hexadecimal.
%K base,dumb,easy,nonn
%O 0,3
%A _Henry Bottomley_, Oct 13 2000
|