OFFSET
1,2
MATHEMATICA
Join[{1}, Flatten[Position[LinearRecurrence[{1, 1}, {1, 4}, 19000], _?PrimeQ]] +1] (* Harvey P. Dale, Nov 17 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
G. L. Honaker, Jr., Dec 23 2003
EXTENSIONS
More terms from Ray Chandler, Jan 04 2004
STATUS
approved