0,1

(*Indices of prime Padovan sequence A000931*)

Clear[a, n]; a[0] = 0; a[1] = 1; a[2] = 1;

a[n_] := a[n] = a[n - 2] + a[n - 3];

Flatten[Table[If[PrimeQ[a[n]], n, {}], {n, 0, 10000}]]

A000931, A001605

Sequence in context: A047432 A095279 A030751 this_sequence A087947 A053427 A037354

Adjacent sequences: A152867 A152868 A152869 this_sequence A152871 A152872 A152873

nonn

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Dec 14 2008