cp's OEIS Frontend

A057946 Bad hexadecimal notation for n: write n in hexadecimal notation, replacing digit ten with "10", digit eleven with "11", ... and digit fifteen with "15".

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