A065730 Largest square <= n-th prime.

1, 1, 4, 4, 9, 9, 16, 16, 16, 25, 25, 36, 36, 36, 36, 49, 49, 49, 64, 64, 64, 64, 81, 81, 81, 100, 100, 100, 100, 100, 121, 121, 121, 121, 144, 144, 144, 144, 144, 169, 169, 169, 169, 169, 196, 196, 196, 196, 225, 225, 225, 225, 225, 225, 256, 256, 256, 256, 256

Offset

1,3

Comments

For n > 2: a(n) = A257053(n,0). - Reinhard Zumkeller, Apr 15 2015

Links

Harry J. Smith, Table of n, a(n) for n=1..1000

Formula

a(n) = A048760(A000040(n)).

Mathematica

Table[Floor[Sqrt@ Prime@ n]^2, {n, 60}] (* Michael De Vlieger, Jul 03 2016 *)

Prog

(PARI) { for (n=1, 1000, a=sqrtint(prime(n))^2; write("b065730.txt", n, " ", a) ) } \\ Harry J. Smith, Oct 28 2009
(Haskell)
a065730 = a048760 . a000040  -- Reinhard Zumkeller, Apr 15 2015
(Magma) [Floor(Sqrt(NthPrime(n)))^2: n in [1..70]] // Vincenzo Librandi, Jan 05 2018

Crossrefs

Cf. A048760, A000040, A065731-A065741.

Cf. A257053.

Sequence in context: A168280 A162564 A014694 * A246934 A206919 A168039

Adjacent sequences: A065727 A065728 A065729 * A065731 A065732 A065733

Keyword

easy,nonn

Author

Labos Elemer, Nov 15 2001

Status

approved