OFFSET
1,1
COMMENTS
Terms k from A001102 such that k / (sum of digits of k) is the square of a prime.
MATHEMATICA
Select[Range[13000], PrimeQ[Sqrt[#/Plus @@ IntegerDigits[#]]] &] (* Amiram Eldar, Jan 01 2023 *)
PROG
(PARI) isok(k) = my(r); issquare(k/sumdigits(k), &r) && (denominator(r)==1) && isprime(r); \\ Michel Marcus, Jan 01 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Andi Fugard, Jan 01 2023
EXTENSIONS
More terms from Michel Marcus, Jan 01 2023
STATUS
approved