|
|
|
|
0, 1, 1, 3, 1, 5, 1, 7, 3, 9, 1, 11, 1, 17, 5, 15, 1, 13, 1, 19, 9, 33, 1, 23, 3, 65, 7, 35, 1, 21, 1, 31, 17, 129, 5, 27, 1, 257, 33, 39, 1, 37, 1, 67, 11, 513, 1, 47, 3, 25, 65, 131, 1, 29, 9, 71, 129, 1025, 1, 43, 1, 2049, 19, 63, 17, 69, 1, 259, 257, 41, 1, 55, 1, 4097, 13, 515, 5, 133, 1, 79, 15, 8193, 1, 75, 33, 16385, 513, 135, 1, 45, 9
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Array[#/2^IntegerExponent[#, 2] &@ Floor@ Total@ Flatten@ MapIndexed[#1 2^(#2 - 1) &, Flatten[Table[2^(PrimePi@ #1 - 1), {#2}] & @@@ FactorInteger@ #]] &, 91] (* Michael De Vlieger, Jan 03 2019 *)
|
|
PROG
|
(PARI)
A000265(n) = (n/2^valuation(n, 2));
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|