OFFSET
1,2
COMMENTS
For a(7) = 8, Fibonacci(8) = 21 and 21/digsum(21) = 7 is a prime number, so Fibonacci(8) is a Moran number (A001101). It seems that this is the only Moran number among the first 100000 Fibonacci numbers.
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
nivenQ[n_] := Divisible[n, Plus @@ IntegerDigits[n]]; Select[Range[3000], nivenQ[Fibonacci[#]] &] (* Amiram Eldar, Sep 15 2020 *)
PROG
(Magma) niven:=func<n|n mod &+Intseq(n) eq 0>; [k:k in [1..2760]| niven(Fibonacci(k))];
(PARI) isok(k) = my(f=fibonacci(k)); (f % sumdigits(f)) == 0; \\ Michel Marcus, Sep 15 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Marius A. Burtea, Sep 14 2020
STATUS
approved