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

Author

Vladimir Joseph Stephan Orlovsky, Aug 17 2009

Keywords

• nonn

Comments

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

Crossrefs

Subsequence of A038874. Cf. A038874, A097933

Programs

Mathematica

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

Extensions

Edited by Charles R Greathouse IV, Nov 02 2009