OFFSET
1,1
EXAMPLE
Fibonacci(21) mod 2105 * Fibonacci(5) mod 2105 = 10946 mod 2105 * 5 mod 2105 = 421 * 5 = 2105;
Fibonacci(222) mod 22205 * Fibonacci(5) mod 22205= 11111460156937785151929026842503960837766832936 mod 22205 * 5 mod 22205 = 4441 * 5= 22205.
MAPLE
with(combinat): P:=proc(q) local a, b, i, n;
for n from 1 to q do for i from 1 to ilog10(n) do
a:=trunc(n/10^i); b:=n-a*10^i; if b>0 then
if (fibonacci(a) mod n)*(fibonacci(b) mod n)=n then print(n); break;
fi; fi; od; od; end: P(10^9);
MATHEMATICA
Select[Range[10^5], Total@ Boole@ Function[k, k == Mod[Fibonacci@ First@ #, k] Mod[Fibonacci@ Last@ #, k] & /@ Map[FromDigits /@ TakeDrop[IntegerDigits@ k, #] &, Range[IntegerLength@ k - 1]]]@ # > 0 &] (* Michael De Vlieger, May 07 2016, Version 10.2 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, May 06 2016
STATUS
approved