%I #12 Nov 10 2024 05:43:44
%S 8,9,10,12,13,19,24,35,42,89,133,474,671,1267,1578,2008,2215,2294,
%T 4168,5558,6572,8566,11235,18742,35839,44264,536490,727739
%N Indices of primes in the Padovan sequence A000931.
%F a(n) = A112882(n) + 5. - _Amiram Eldar_, Nov 10 2024
%t a[0] = 1; a[1] = 0; a[2] = 0;
%t a[n_] := a[n] = a[n - 2] + a[n - 3];
%t Flatten[Table[If[PrimeQ[a[n]], n, {}], {n, 0, 10000}]]
%o (PARI) v=[1,1,1];for(n=8,1e4,v=[v[2],v[3],v[1]+v[2]];if(ispseudoprime(v[3]),print1(n", "))) \\ _Charles R Greathouse IV_, Nov 07 2011
%Y Cf. A000931, A001605, A100891, A112882.
%K nonn,more
%O 1,1
%A _Roger L. Bagula_, Dec 14 2008
%E a(23)-a(26) from _Charles R Greathouse IV_, Nov 07 2011
%E a(27)-a(28) calculated from the data at A112882 by _Amiram Eldar_, Nov 10 2024