OFFSET
1,1
COMMENTS
Are there 6 consecutive integers that are all terms in A381581?
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..130
EXAMPLE
PROG
(PARI) mx = 20; fvec = vector(mx, i, fibonacci(2*i)); f(n) = if(n <= mx, fvec[n], fibonacci(2*n));
is1(n) = {my(s = 0, m = n, k); while(m > 0, k = 1; while(m > f(k), k++); if(m < f(k), k--); if(m >= 2*f(k), s += 2; m -= 2*f(k), s++; m -= f(k))); !(n % s); }
list(lim) = {my(q1 = is1(1), q2 = is1(2), q3 = is1(3), q4 = is1(4), s5); for(k = 5, lim, q5 = is1(k); if(q1 && q2 && q3 && q4 && q5, print1(k-4, ", ")); q1 = q2; q2 = q3; q3 = q4; q4 = q5); }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Feb 28 2025
STATUS
approved
