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".
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, 110, 111, 112, 113, 114, 115, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 210, 211, 212, 213, 214, 215, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 310, 311, 312, 313, 314, 315, 40, 41
Offset: 0
Examples
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.
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..10000
Programs
-
Maple
a:= proc(n) local i, m, r ; m:=n; r:=NULL; if n=0 then return 0 fi; for i from 0 while m>0 do r:= irem(m, 16, 'm'), r od; parse(cat(r)) end: seq(a(n), n=0..80); # Alois P. Heinz, Jun 23 2014 -
Mathematica
f[n_] := FromDigits@ Flatten@ IntegerDigits@ IntegerDigits[n, 16]; Array[f, 66, 0] (* Robert G. Wilson v, Jun 23 2014 *)