OFFSET
1,2
COMMENTS
Zero terms of A121343.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range@10000, Mod[Fibonacci@#, #(# + 1)/2] == 0 &]
PROG
(PARI) for(n=1, 8250, if(Mod(fibonacci(n), binomial(n+1, 2))==0, print1(n", "))) \\ G. C. Greubel, Oct 08 2019
(Magma) [n: n in [1..8250] | Fibonacci(n) mod Binomial(n+1, 2) eq 0]; // G. C. Greubel, Oct 08 2019
(Sage) [n for n in (1..8500) if Mod(fibonacci(n), binomial(n+1, 2))==0] # G. C. Greubel, Oct 08 2019
(GAP) Filtered([1..8250], n-> (Fibonacci(n) mod Binomial(n+1, 2))=0 ); # G. C. Greubel, Oct 08 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 31 2006
STATUS
approved