OFFSET
1,3
COMMENTS
a(n) = sum(A010051(A162610(n,k)): k=1..n) = number of primes in n-th row of the triangle in A162610. - Reinhard Zumkeller, Jan 19 2013
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
a[n_] := Sum[Boole[PrimeQ[(k+1)(n-1)+1]], {k, 1, n}];
Table[a[n], {n, 1, 100}] (* Jean-François Alcover, Sep 20 2021 *)
PROG
(Haskell)
a221491 n = sum [a010051' (k*n - k + n) | k <- [1..n]]
(PARI) a(n) = sum(k=1, n, isprime(k*n - k + n)); \\ Michel Marcus, Jan 26 2022
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Jan 19 2013
STATUS
approved