|
Search: id:A065883
|
|
|
| A065883 |
|
Remove factors of 4 from n (i.e. write n in base 4, drop final zeros, then rewrite in decimal). |
|
+0
7
|
|
| 1, 2, 3, 1, 5, 6, 7, 2, 9, 10, 11, 3, 13, 14, 15, 1, 17, 18, 19, 5, 21, 22, 23, 6, 25, 26, 27, 7, 29, 30, 31, 2, 33, 34, 35, 9, 37, 38, 39, 10, 41, 42, 43, 11, 45, 46, 47, 3, 49, 50, 51, 13, 53, 54, 55, 14, 57, 58, 59, 15, 61, 62, 63, 1, 65, 66, 67, 17, 69, 70, 71, 18, 73, 74, 75
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Multiplicative with a(p^e) = if p = 2, then 2^(e%2), else p^e - Mitch Harris, Apr 19 2005.
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
FORMULA
|
If n mod 4 = 0 then a(n) = a(n/4), otherwise a(n) = n.
Multiplicative with a(p^e) = if p = 2, then 2^(e%2), else p^e
|
|
EXAMPLE
|
a(7)=7, a(14)=14, a(28)=a(4*7)=7, a(56)=a(4*14)=14, a(112)=a(4^2*7)=7.
|
|
PROGRAM
|
(PARI) baseA2B(x, a, b)= { local(d, e=0, f=1); while (x>0, d=x%b; x\=b; e+=d*f; f*=a); return(e) } { for (n=1, 1000, if (n%4, a=n, a=baseA2B(n, 10, 4); while (a%10 == 0, a\=10); a=baseA2B(a, 4, 10)); write("b065883.txt", n, " ", a) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Nov 03 2009]
|
|
CROSSREFS
|
For 2 this produces A000265, for 3 A038502 and for 10 (if n<=100) A065881.
Sequence in context: A072400 A007913 A083346 this_sequence A071975 A055905 A147703
Adjacent sequences: A065880 A065881 A065882 this_sequence A065884 A065885 A065886
|
|
KEYWORD
|
base,nonn,mult
|
|
AUTHOR
|
Henry Bottomley (se16(AT)btinternet.com), Nov 26 2001
|
|
|
Search completed in 0.002 seconds
|
