OFFSET
1,1
COMMENTS
Numbers k such that A198410(k) is prime.
MATHEMATICA
Select[Range[250], PrimeQ[((3^(#-1) + 1)^3 -1)/3^#]&]
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Michel Lagneau, Nov 03 2011
EXTENSIONS
a(16) from Michael S. Branicky, May 12 2023
STATUS
approved
