

A094410


Numbers n such that n divides Fibonacci(n1) but does not divide Fibonacci(n)  1.


2



442, 1891, 6601, 8149, 13981, 17119, 17711, 30889, 40501, 52701, 68101, 78409, 88601, 88831, 115231, 138601, 145351, 150121, 153781, 191351, 199801, 218791, 265881, 266071, 316561, 332949, 342271, 348517, 407353, 453151, 456301, 464101
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Giovanni Resta, Table of n, a(n) for n = 1..1000


MATHEMATICA

Select[Range[50000], ! Mod[Fibonacci[ # ]  1, # ] == 0 && Mod[Fibonacci[ #  1], # ] == 0 &]


PROG

(PARI) fibmod(n, m)=(Mod([0, 1; 1, 1], m)^n*[0; 1])[1, 1]
is(n)=fibmod(n1, n)==0 && fibmod(n, n)!=1 \\ Charles R Greathouse IV, Nov 04 2016


CROSSREFS

Cf. A069106, A094394, A094409.
Sequence in context: A158322 A031720 A069106 * A236706 A105922 A250086
Adjacent sequences: A094407 A094408 A094409 * A094411 A094412 A094413


KEYWORD

nonn


AUTHOR

Eric Rowland, May 01 2004


EXTENSIONS

More terms from David Wasserman, May 08 2007


STATUS

approved



