

A064362


Numbers n such that no Lucas number is a multiple of n.


5



5, 8, 10, 12, 13, 15, 16, 17, 20, 21, 24, 25, 26, 28, 30, 32, 33, 34, 35, 36, 37, 39, 40, 42, 45, 48, 50, 51, 52, 53, 55, 56, 57, 60, 61, 63, 64, 65, 66, 68, 69, 70, 72, 73, 74, 75, 77, 78, 80, 84, 85, 87, 88, 89, 90, 91, 92, 93, 95, 96, 97, 99, 100, 102, 104
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

The Mathematica code for testing the number n works by generating the Lucas sequence (mod n) and stopping when either n divides a term of the sequence or the entire sequence (mod n) has been generated. Hence, up to A106291(n) terms need to be computed.  T. D. Noe, Mar 20 2013


REFERENCES

Teruo Nishiyama, Fibonacci numbers, SuuriKagaku, No. 285, March 1987, 6769, (in Japanese).


LINKS



MATHEMATICA

test[ n_ ] := For[ a=1; b=3, True, t=b; b=Mod[ a+b, n ]; a=t, If[ b==0, Return[ True ] ]; If[ a==2&&b==1, Return[ False ] ] ]; Select[ Range[ 110 ], !test[ # ]& ]


CROSSREFS



KEYWORD

easy,nonn


AUTHOR



EXTENSIONS



STATUS

approved



