A163442 Primes of the form floor((p/3)^3), where p is prime.

181, 1103, 40471, 143329, 212419, 266261, 468493, 14586401, 20948491, 48894061, 53298877, 86546399, 136061111, 150851969, 189448891, 227353303, 249650309, 256855171, 328033129, 361451309, 507533053, 710528249, 815653171, 1172016731

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..1000

Example

(17/3)^3=181.963 -> 181, (31/3)^3=1103.37 -> 1103, (103/3)^3=40471.4 -> 40471

Mathematica

f[n_]:=IntegerPart[(p/3)^3]; lst={}; Do[p=Prime[n]; If[PrimeQ[f[p]], AppendTo[lst, f[p]]], {n, 7!}]; lst
Select[Table[Floor[(p/3)^3], {p, Prime[Range[800]]}], PrimeQ] (* Harvey P. Dale, Dec 16 2017 *)

Prog

(PARI) forprime(p=2, 1e3, n=p^3\27; if(isprime(n), print1(n", ")))

Crossrefs

Cf. A162652, A163418, A163419, A163420, A163421, A163422, A163424, A163425, A163426, A163427, A163428, A163429, A163430, A163431.

Sequence in context: A229877 A067383 A107255 * A268520 A235975 A137530

Adjacent sequences: A163439 A163440 A163441 * A163443 A163444 A163445

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 27 2009

Extensions

Program and editing by Charles R Greathouse IV, Nov 09 2009

Status

approved