A092836 - OEIS (original) (raw)

(PARI) t(m)= { if (m==0, return(a1)); if (m==1, return(a2)); if (m==2, return(a3)); r = a1 + a2 + a3; a1=a2; a2=a3; a3=r; return(r); } { a1=0; a2=1; a3=1; n=0; for (m=0, 1000, a=t(m); if (isprime(a), write("b092836.txt", n++, " ", a))); } \\ Harry J. Smith, Jun 21 2009