A164624 Primes p such that p + Floor[p/2] + Floor[p/3] is prime.

2, 3, 11, 13, 23, 37, 59, 83, 109, 131, 181, 191, 193, 229, 311, 337, 373, 383, 397, 443, 479, 541, 563, 599, 613, 743, 769, 877, 911, 983, 1019, 1021, 1031, 1091, 1093, 1129, 1153, 1163, 1237, 1283, 1297, 1319, 1381, 1451, 1453, 1489, 1523, 1559, 1571, 1597

Offset

1,1

Comments

11+5+3=19, 13+6+4=23, 23+11+7=41, ..

Links

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

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[p+Floor[p/2]+Floor[p/3]], AppendTo[lst, p]], {n, 2*6!}]; lst

Crossrefs

Subsequence of A038874. Cf. A038874, A097933

Sequence in context: A062350 A163498 A038874 * A215819 A040101 A045317

Adjacent sequences: A164621 A164622 A164623 * A164625 A164626 A164627

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 17 2009

Extensions

Edited by Charles R Greathouse IV, Nov 02 2009

Status

approved