OFFSET
1,1
COMMENTS
Primes whose squares have at most one odd digit. - Robert Israel, Oct 17 2023
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
filter:= proc(n) local L;
if not isprime(n) then return false fi;
convert(convert(n^2, base, 10)[2..-1] mod 2, set) = {0};
end proc:
filter(2):= true: filter(3):= true:
select(filter, [2, seq(i, i=3..10000, 2)]); # Robert Israel, Oct 17 2023
MATHEMATICA
With[{upto=10^4}, Select[Prime[Range[upto]], Count[IntegerDigits[#^2], _?OddQ]<2&]] (* Paolo Xausa, Oct 18 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset changed by Robert Israel, Oct 17 2023
STATUS
approved