OFFSET
0,2
COMMENTS
Contains every nonnegative power of 19. All terms that are not a power of 19 are multiples of 12.
LINKS
C. Smyth, The terms in Lucas sequences divisible by their indices, Journal of Integer Sequences, Vol.13 (2010), Article 10.2.4.
MATHEMATICA
nn = 3000; s = LinearRecurrence[{1, -5}, {1, 1}, nn]; t = {}; Do[If[Mod[s[[n]], n] == 0, AppendTo[t, n]], {n, nn}]; t (* T. D. Noe, Nov 08 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas M. Bridge, Nov 06 2013
STATUS
approved