|
| |
|
|
A030103
|
|
Base 4 reversal of n (written in base 10).
|
|
5
| |
|
|
0, 1, 2, 3, 1, 5, 9, 13, 2, 6, 10, 14, 3, 7, 11, 15, 1, 17, 33, 49, 5, 21, 37, 53, 9, 25, 41, 57, 13, 29, 45, 61, 2, 18, 34, 50, 6, 22, 38, 54, 10, 26, 42, 58, 14, 30, 46, 62, 3, 19, 35, 51, 7, 23, 39, 55, 11, 27, 43, 59, 15, 31, 47, 63, 1, 65, 129, 193, 17, 81, 145, 209, 33, 97, 161
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
LINKS
| Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
|
|
|
PROG
| (Haskell)
import Data.List (unfoldr)
a030103 n = foldl (\v d -> 4*v + d) 0 $ unfoldr dig n where
dig x = if x == 0 then Nothing else Just $ swap $ divMod x 4
-- Reinhard Zumkeller, Oct 10 2011
(PARI) a(n, b=4)=subst(Polrev(base(n, b)), x, b)) /* where */
base(n, b)={my(a=[n%b]); while(0<n\=b, a=concat(n%b, a)); a} \\ - M. F. Hasler, Nov 04 2011
|
|
|
CROSSREFS
| Cf. A004086, A030101 - A030108, A055948, A035524.
Sequence in context: A155083 A011357 A080409 * A105640 A090299 A060693
Adjacent sequences: A030100 A030101 A030102 * A030104 A030105 A030106
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
| |
|
|
