OFFSET
1,3
COMMENTS
Complement of A065408.
Includes A016766. - Robert Israel, Jan 15 2016
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
remove(t->isprime(convert(convert(t, base, 10), `+`)), [seq(i^2, i=0..100)]); # Robert Israel, Jan 15 2016
MATHEMATICA
Select[Range[0, 100]^2, ! PrimeQ[Total[IntegerDigits[#]]] &]
PROG
(Magma) [n^2: n in [0..80] | not IsPrime(&+Intseq(n^2))];
(PARI) is(n) = issquare(n) && !ispseudoprime(sumdigits(n)); \\ Altug Alkan, Jan 15 2016
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Vincenzo Librandi, Jan 15 2016
EXTENSIONS
a(1)=0 prepended by Altug Alkan Jan 15 2016
Edited by Bruno Berselli, Jan 15 2016
STATUS
approved