

A027619


Numbers k such that Hofstadter Qsequence Q(k) (A005185) satisfies Q(k) = k/2.


1



2, 50, 56, 128, 156, 166, 208, 238, 272, 308, 336, 392, 474, 476, 512, 618, 658, 666, 710, 734, 836, 868, 1016, 1064, 1376, 1386, 1424, 1432, 1832, 2216, 2280, 2334, 2606, 2638, 2676, 2700, 2740, 2782, 2786, 2912, 2922, 2948, 2954, 3758
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA



MATHEMATICA

q[n_] := q[n] = If[n <= 2, 1, q[n  q[n1]] + q[n  q[n2]]];
Reap[For[n = 1, n <= 4000, n++, If[q[n] == n/2, Sow[n]]]][[2, 1]] (* JeanFrançois Alcover, Oct 02 2019 *)


CROSSREFS



KEYWORD

nonn


AUTHOR

G. R. Bower (fsgrb(AT)aurora.alaska.edu)


STATUS

approved



