OFFSET
1,1
COMMENTS
For any n > 0, a(n) <= 2*n, with equality iff n belongs to A029744.
LINKS
EXAMPLE
A002487(n) = 5 for n = 11, 13, 17, 22, 26, 31, 34, 44, 52, 62, ...
Hence a(11) = 13, a(13) = 17, a(17) = 22, a(22) = 26, etc.
PROG
(PARI) fusc(n)=local(a=1, b=0); while(n>0, if(bitand(n, 1), b+=a, a+=b); n>>=1); b \\ after Charles R Greathouse IV at A002487
a(n) = my (v=fusc(n)); for (k=n+1, oo, if (fusc(k)==v, return (k)))
CROSSREFS
KEYWORD
nonn
AUTHOR
Rémy Sigrist, Nov 13 2017
STATUS
approved