login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A267430 Squares whose digit sum is not a prime. 1
0, 1, 4, 9, 36, 64, 81, 100, 121, 144, 169, 196, 225, 324, 361, 400, 441, 484, 529, 576, 729, 900, 961, 1089, 1225, 1296, 1521, 1681, 1764, 1849, 2025, 2116, 2304, 2601, 2916, 3025, 3249, 3364, 3481, 3600, 3969, 4356, 4489, 4624, 4761, 5041, 5184, 5476, 5625 (list; graph; refs; listen; history; text; internal format)
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

Cf. A000290, A016766, A065408, A104211.

Sequence in context: A117676 A085575 A082875 * A117756 A326182 A053057

Adjacent sequences:  A267427 A267428 A267429 * A267431 A267432 A267433

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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 18 12:35 EST 2019. Contains 329261 sequences. (Running on oeis4.)