OFFSET
1,1
LINKS
Max Alekseyev, Table of n, a(n) for n = 1..555
MATHEMATICA
Select[ Range[22222], PrimeQ[PartitionsP[9# ]] &]
PROG
(PARI) is(n)=isprime(numbpart(9*n)) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 14 2005
STATUS
approved