A123241 Number of squares < lesser of twin primes.

2, 3, 4, 5, 6, 7, 8, 9, 11, 11, 12, 13, 14, 14, 15, 16, 16, 17, 17, 18, 19, 21, 21, 22, 23, 24, 25, 25, 26, 26, 29, 29, 29, 30, 30, 32, 33, 33, 33, 34, 34, 36, 36, 36, 37, 37, 38, 39, 39, 39, 41, 41, 41, 42, 42, 43, 44, 44, 44, 45, 45, 46, 46, 46, 46, 47, 47, 48, 48, 49, 49, 49

Offset

1,1

Links

Table of n, a(n) for n=1..72.

Formula

a(n)=A003059(A001359(n)). - R. J. Mathar, Jun 18 2008

Mathematica

ltp=Select[Prime[Range[PrimePi[2500]]], PrimeQ[#+2]&]; Ceiling[Sqrt[ltp]] (* James C. McMahon, Nov 17 2024 *)

Crossrefs

Cf. A104103 number of squares < prime(n).

Sequence in context: A262039 A354719 A340835 * A355222 A033862 A329201

Adjacent sequences: A123238 A123239 A123240 * A123242 A123243 A123244

Keyword

easy,nonn

Author

Giovanni Teofilatto, Oct 07 2006

Extensions

More terms from R. J. Mathar, Jun 18 2008

Status

approved