login
A253889
a(n) = A048673(floor(A064216(n)/2)).
11
1, 1, 1, 2, 2, 3, 4, 3, 8, 14, 4, 13, 5, 5, 7, 17, 6, 6, 18, 7, 38, 32, 8, 28, 23, 9, 15, 11, 10, 26, 16, 11, 41, 53, 12, 33, 39, 13, 10, 113, 14, 43, 12, 15, 22, 63, 16, 25, 59, 17, 203, 74, 18, 48, 30, 19, 188, 50, 20, 122, 68, 21, 9, 149, 22, 138, 83, 23, 60, 86, 24, 35, 29, 25, 73, 62, 26, 24, 123, 27, 27, 128, 28, 313
OFFSET
1,4
COMMENTS
When A048673 is represented as a binary tree, then any non-root node k (>= 2) which contains value n = A048673(k) has as its parent a(n) = A048673(floor(k/2)).
LINKS
FORMULA
a(n) = A048673(floor(A064216(n)/2)).
Other identities. For all n >= 0:
a(3n+2) = n+1.
MATHEMATICA
f[n_] := Times @@ Power[If[# == 1, 1, NextPrime[#, -1]] & /@ First@ #, Last@ #] &@ Transpose@ FactorInteger[2 n - 1]; g[n_] := (Times @@ Power[If[# == 1, 1, NextPrime@ #] & /@ First@ #, Last@ #] + 1)/2 &@ Transpose@ FactorInteger@ n; Array[Floor@ g[Floor[f[#]/2]] &, 84] (* Michael De Vlieger, Sep 16 2017 *)
PROG
(Scheme) (define (A253889 n) (A048673 (floor->exact (/ (A064216 n) 2))))
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 22 2015
STATUS
approved