

A176872


Prime numbers p such that pLargestSquare is prime and pLargestCube is also prime, (LargestSquare <= p, LargestCube <= p).


1



3, 11, 19, 67, 71, 83, 107, 227, 263, 269, 613, 619, 1031, 1061, 1163, 1193, 1223, 1307, 1787, 1801, 1811, 1831, 1979, 1997, 2129, 4099, 4127, 4133, 4139, 4157, 4373, 4409, 4463, 4637, 4643, 4703, 5843, 5849, 5879, 5903, 6089, 6101, 6113, 6143, 6163, 6211
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

113^2=2;112^3=3, 194^2=3,192^3=11,..


LINKS

Harvey P. Dale, Table of n, a(n) for n = 1..1000


MATHEMATICA

lst={}; Do[p2=nFloor[Sqrt[n]]^2; p3=nFloor[n^(1/3)]^3; If[PrimeQ[p2]&&PrimeQ[p3]&&PrimeQ[n], AppendTo[lst, n]], {n, 8!}]; lst
plsplcQ[p_]:=AllTrue[{pFloor[Sqrt[p]]^2, pFloor[Surd[p, 3]]^3}, PrimeQ]; Select[ Prime[ Range[1000]], plsplcQ] (* Harvey P. Dale, Jul 03 2022 *)


CROSSREFS

Cf. A135932, A176864, A176865, A176870, A176871
Sequence in context: A116945 A048270 A183459 * A088733 A128996 A196174
Adjacent sequences: A176869 A176870 A176871 * A176873 A176874 A176875


KEYWORD

nonn


AUTHOR

Vladimir Joseph Stephan Orlovsky, Apr 27 2010


STATUS

approved



