OFFSET
1,1
LINKS
Sean A. Irvine, Table of n, a(n) for n = 1..1000
EXAMPLE
802 = 2*401 and 2401 = 49^2.
1131 = 3*13*29 and 31329 = 177^2.
PROG
(PARI) f(n)={ n<4 & return(n); for(i=1, #n=factor(n)~, n[1, i]=concat(vector(n[2, i], j, Str(n[1, i])))); eval(concat(n[1, ])); } \\ A037276
isok(n) = (n>1) && issquare(f(n)); \\ Michel Marcus, Jan 28 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Missing terms inserted and terms sorted by Sean A. Irvine, Jan 27 2021
STATUS
approved