OFFSET
1,1
COMMENTS
A104316(n) = a(n)^2.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
909^2 = 826281, therefore 909 is a term.
PROG
(PARI) isok(n) = !vecmin(digits(n)) && vecmin(digits(n^2)); \\ Michel Marcus, Jan 03 2014
(Haskell)
a104315 n = a104315_list !! (n-1)
a104315_list = filter (\x -> a168046 x == 0 && a168046 (x ^ 2) == 1) [1..]
-- Reinhard Zumkeller, Jan 03 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Mar 01 2005
STATUS
approved