OFFSET
1,2
MAPLE
s := n -> if irem(n, 2) = 1 and (isprime(n) or issqr(n)) then n else NULL fi:
seq(s(n), n=0..241);
MATHEMATICA
Select[Range[1, 241, 2], Or[IntegerQ@ Sqrt@ #, PrimeQ@ #] &] (* Michael De Vlieger, Jul 15 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 15 2019
STATUS
approved