A248906 Binary representation of prime power divisors of n: Sum_{p^k | n} 2^(A065515(p^k)-1).
0, 1, 2, 5, 8, 3, 16, 37, 66, 9, 128, 7, 256, 17, 10, 549, 1024, 67, 2048, 13, 18, 129, 4096, 39, 8200, 257, 16450, 21, 32768, 11, 65536, 131621, 130, 1025, 24, 71, 262144, 2049, 258, 45, 524288, 19, 1048576, 133, 74, 4097, 2097152, 551, 4194320, 8201
Offset: 1
Keywords
Examples
The prime power divisors of 12 are 2, 3, and 4. These are indices 1, 2, and 3 in the list of prime powers, so a(12) = 2^(1-1) + 2^(2-1) + 2^(3-1) = 7.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
a248906 = sum . map ((2 ^) . subtract 2 . a095874) . tail . a210208_row -- Reinhard Zumkeller, Mar 07 2015
-
PARI
al(n) = my(r=vector(n),pps=[p| p <- [1..n], isprimepower(p)],p2); for(k=1,#pps,p2=2^(k-1);forstep(j=pps[k],n,pps[k],r[j]+=p2));r