OFFSET
1,3
COMMENTS
1 is taken to be the zeroth prime number.
a(n) is the sum of coefficients of power sums symmetric functions in |y|! * s(y) / syt(y), where y is the integer partition with Heinz number n, s is Schur functions, and syt(y) is the number of standard Young tableaux of shape y.
MATHEMATICA
Table[If[n==1, 1, If[PrimeQ[n], PrimePi[n]!, 0]], {n, 40}]
PROG
(PARI) a(n) = if (n==1, 1, if (isprime(n), primepi(n)!, 0)); \\ Michel Marcus, Nov 23 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 21 2018
STATUS
approved