OFFSET
1,1
COMMENTS
LINKS
Edd Mann, Mystery Calculator.
EXAMPLE
a(1) = 16 = 10000 in binary.
MAPLE
a:= n-> n+15 + 16*iquo(n-1, 16):
seq(a(n), n=1..100); # Alois P. Heinz, Aug 22 2011
PROG
(Python)
def A115420(n): return ((n-1<<1)&-15|16)+(n-1&15) # Chai Wah Wu, Mar 28 2024
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jeremy Gardiner, Jan 22 2006
STATUS
approved