OFFSET
1,2
LINKS
Mehrad Mahmoudian, Table of n, a(n) for n = 1..10000
Mehrad Mahmoudian, R code to produce the sequence
EXAMPLE
18^2=324, 18=2*(3+2+4), so 324 is in the sequence.
MAPLE
dig := X->convert((convert(X, base, 10)), `+`); seq(`if`(isprime(i)=false, `if`(i mod dig(i^2)=0, i^2, NULL), NULL), i=1..1000);
MATHEMATICA
Select[Range[500]^2, Divisible[Sqrt[#], Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Jul 15 2013 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 14 2002
EXTENSIONS
More terms from Sascha Kurz and Francois Jooste (phukraut(AT)hotmail.com), Mar 18 2002
Definition corrected by Harvey P. Dale, Jul 15 2013
STATUS
approved