OFFSET
1,2
EXAMPLE
231700599 is a term since 231700599, 231700600 and 231700601 are all terms in A377209: 231700599/A007895(231700599) = 17823123 and 17823123/A007895(17823123) = 1980347 are integers, 231700600/A007895(231700600) = 23170060 and 23170060/A007895(23170060) = 2317006 are integers, and 231700601/A007895(231700601) = 21063691 and 21063691/A007895(21063691) = 1914881 are integers.
PROG
(PARI) zeck(n) = if(n<4, n>0, my(k=2, s, t); while(fibonacci(k++)<=n, ); while(k && n, t=fibonacci(k); if(t<=n, n-=t; s++); k--); s); \\ Charles R Greathouse IV at A007895
is1(k) = {my(z = zeck(k)); !(k % z) && !((k/z) % zeck(k/z)); }
lista(kmax) = {my(q1 = is1(1), q2 = is1(2), q3); for(k = 3, kmax, q3 = is1(k); if(q1 && q2 && q3, print1(k-2, ", ")); q1 = q2; q2 = q3); }
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Oct 22 2024
STATUS
approved