|
%I #12 Jul 31 2015 12:48:52
%S 1,4,7,8,10,11,16,20,23,26,28,35,40,56,58,80,83,92,98,100,307,416,575,
%T 691,746,818,820,971,1391,1487,2000,2200,2368,2386,3043,4076,4868,
%U 6536,6776,6787,8008,11915,18898
%N Indices of terms in the sequence 3, 1, 4, 5, 9, 14, 23, ... (A000285 prefixed with 3) which are prime numbers.
%t Join[{1},Flatten[Position[LinearRecurrence[{1,1},{1,4},19000], _?PrimeQ]] +1] (* _Harvey P. Dale_, Nov 17 2013 *)
%Y Cf. A000285, A091157.
%K nonn
%O 1,2
%A _G. L. Honaker, Jr._, Dec 23 2003
%E More terms from _Ray Chandler_, Jan 04 2004
|
