OFFSET
1,1
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
for n from 0 to 300 do
s := 3*n^2-2*n+1 ;
if isA001358(s) then
printf("%d, ", s) ;
end if;
end do: # R. J. Mathar, Jun 30 2020
MATHEMATICA
Select[Array[3 #^2 - 2 # + 1 &, 100], PrimeOmega[#] == 2 &] (* Michael De Vlieger, Mar 17 2021 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Jan 12 2006
STATUS
approved