OFFSET
1,1
COMMENTS
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
for (n=1, 507, if (gcd(fusc(n), fusc(n+2))>1, print1 (n", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Rémy Sigrist, Nov 15 2017
STATUS
approved