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

Author

Giovanni Teofilatto, Oct 07 2006

Keywords

• easy
• nonn

Crossrefs

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

Programs

Mathematica

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

Formula

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

Extensions

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