A152184 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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