A152184 Primes in A119565.

2, 3, 5, 7, 17, 23, 31, 101, 401, 4657, 15823, 80783, 139091, 541061, 1400251, 27801973, 82419121, 2147261729, 12554734117, 16473868771, 98268480059747, 389987558038815689, 13332015897088468423, 315610157790100954828793509, 21710126322471651344856594580559

Offset

1,1

Links

Table of n, a(n) for n=1..25.

Mathematica

(*A119565*) a[0] = 1; a[1] = 2; a[2] = 3; a[3] = 5; a[4] = 7; a[5] = 10; a[n_] := a[n] = Floor[a[n - 1] + 1 + a[n - 2]/6]; Flatten[Table[If[PrimeQ[a[n]], a[n], {}], {n, 0, 300}]]
Select[Join[{1, 2, 3, 5}, RecurrenceTable[{a[4]==7, a[5]==10, a[n] == Floor[ a[n-1]+ 1+a[n-2]/6]}, a, {n, 600}]], PrimeQ] (* Harvey P. Dale, Mar 15 2016 *)

Prog

(PARI) a=concat([1, 2, 3, 5, 7, 10], vector(95)); for(i=7, #a, a[i]=1+a[i-1]+a[i-2]\6); select(isprime, a) \\ Charles R Greathouse IV, Nov 07 2011

Crossrefs

Cf. A119565.

Sequence in context: A066277 A360383 A164134 * A135948 A164042 A248344

Adjacent sequences: A152181 A152182 A152183 * A152185 A152186 A152187

Keyword

nonn

Author

Roger L. Bagula, Nov 28 2008

Extensions

More terms from Harvey P. Dale, Mar 15 2016

Status

approved