OFFSET
0,3
LINKS
Max Alekseyev, Table of n, a(n) for n = 0..691
MATHEMATICA
PrimeNu[3^Range[0, 100]+1] (* Paolo Xausa, Oct 14 2023 *)
PROG
(PARI) for(n = 0, 100, print1(omega(3^n + 1), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Sean A. Irvine, Oct 13 2023
STATUS
approved