This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A267430 #28 Sep 08 2022 08:46:15 %S A267430 0,1,4,9,36,64,81,100,121,144,169,196,225,324,361,400,441,484,529,576, %T A267430 729,900,961,1089,1225,1296,1521,1681,1764,1849,2025,2116,2304,2601, %U A267430 2916,3025,3249,3364,3481,3600,3969,4356,4489,4624,4761,5041,5184,5476,5625 %N A267430 Squares whose digit sum is not a prime. %C A267430 Complement of A065408. %C A267430 Includes A016766. - _Robert Israel_, Jan 15 2016 %H A267430 Robert Israel, <a href="/A267430/b267430.txt">Table of n, a(n) for n = 1..10000</a> %p A267430 remove(t->isprime(convert(convert(t,base,10),`+`)), [seq(i^2,i=0..100)]); # _Robert Israel_, Jan 15 2016 %t A267430 Select[Range[0,100]^2, ! PrimeQ[Total[IntegerDigits[#]]] &] %o A267430 (Magma) [n^2: n in [0..80] | not IsPrime(&+Intseq(n^2))]; %o A267430 (PARI) is(n) = issquare(n) && !ispseudoprime(sumdigits(n)); \\ _Altug Alkan_, Jan 15 2016 %Y A267430 Cf. A000290, A016766, A065408, A104211. %K A267430 nonn,base,easy %O A267430 1,3 %A A267430 _Vincenzo Librandi_, Jan 15 2016 %E A267430 a(1)=0 prepended by _Altug Alkan_ Jan 15 2016 %E A267430 Edited by _Bruno Berselli_, Jan 15 2016