OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
Table[PrimePi[n^2 - 1] + n, {n, 60}] (* Vincenzo Librandi, Feb 18 2016 *)
PROG
(Haskell)
a161187 n = a161187_list !! (n-1)
a161187_list = tail $ findIndices ((== 1) . a010052) a089237_list
-- Reinhard Zumkeller, Dec 18 2012
(Magma) [1] cat [#PrimesUpTo(n^2-1)+n: n in [2..100]]; // Vincenzo Librandi, Feb 18 2016
(Python)
from sympy import primepi
def A161187(n): return n+primepi(n**2) # Chai Wah Wu, Oct 12 2024
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Daniel Tisdale, Jun 06 2009
EXTENSIONS
Edited by N. J. A. Sloane, Jun 07 2009
Extended by Ray Chandler, May 06 2010
STATUS
approved