|
|
A272530
|
|
Position of first occurrence of n in A072347.
|
|
2
|
|
|
0, 3, 7, 27, 15, 427, 55, 31, 215, 219, 111, 119, 63, 431, 443, 471, 439, 223, 239, 1879, 127, 1719, 863, 1755, 891, 887, 879, 3423, 447, 495, 479, 3451, 3447, 255, 3439, 3503, 1727, 27355, 1967, 1787, 1775, 14167, 1783, 1759, 1911, 1903, 895, 7855, 991, 959, 6907, 6895, 7087, 55983, 511, 7099, 6879, 14043, 7007, 3455
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
R[1]:= 0:
for n from 3 to 100000 by 4 do
v:= a(n);
if not assigned(R[v]) then R[v]:= n
fi
od:
for n from 1 while assigned(R[n]) do od:
|
|
MATHEMATICA
|
Block[{c, s}, c[w_] := With[{n = Length@ w}, Which[n == 0, 1, n == 1, First@ w, True, Last[w] c[Most@ w] + c[Most@ Most@ w]]]; s = {1}~Join~Array[c[IntegerDigits[#, 2]] &, 10^4]; TakeWhile[Array[-1 + FirstPosition[s, #][[1]] &, 50], IntegerQ]] (* Michael De Vlieger, Jan 20 2018, after Jean-François Alcover at A072347 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|