OFFSET
1,1
COMMENTS
EXAMPLE
For k = 9, 9!! = 945, and (9+4+5)/9 = 2 is prime.
MATHEMATICA
lst={}; Do[If[PrimeQ[Sum[DigitCount[n!!][[i]]*i/9, {i, 1, 9}]], AppendTo[lst, n]], {n, 1, 300}]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Dec 23 2011
STATUS
approved
