This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A253889 a(n) = A048673(floor(A064216(n)/2)). 10
 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 (list; graph; refs; listen; history; text; internal format)
 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 Antti Karttunen, Table of n, a(n) for n = 1..8192 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 Cf. A048673, A064216, A253888, A253893. Sequence in context: A284113 A324480 A164975 * A228754 A171830 A071506 Adjacent sequences:  A253886 A253887 A253888 * A253890 A253891 A253892 KEYWORD nonn AUTHOR Antti Karttunen, Jan 22 2015 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 25 09:48 EDT 2019. Contains 326324 sequences. (Running on oeis4.)