A065730 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A065730

Largest square <= n-th prime.

14

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

(list; graph; refs; listen; history; text; internal format)

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.

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