%I A078815
%S A078815 1,25,121,16,121,1089,121,1089,1089,1156,1089,1089,1089,1089,1024,1089,
%T A078815 10404,1089,1024,1089,1024,10404,10404,10404,10404,10404,10404,10404,
%U A078815 1024,10404,10404,1024,10404,1024,1024,10404,1024,1024,1024,1024,1024
%N A078815 a(n) = A078215(n+1)/A078215(n).
%o A078815 (PARI) {print1(a=1,","); for(n=2,41,k=floor(log(a)/log(10))+1; s=n; t=s+1; 
               m=floor(log(s)/log(10))+1; d=k-m; s=s*10^d; t=t*10^d; b=1; while(b>
               0,q=floor(s/a); while(b>0&&(p=q*a)<t,if(p>=s&&issquare(p),print1(q,
               ","); b=0,q++)); s=10*s; t=10*t); a=p)}
%Y A078815 Cf. A078215, A078216.
%Y A078815 Sequence in context: A020152 A124953 A126412 this_sequence A036057 A083509 
               A031151
%Y A078815 Adjacent sequences: A078812 A078813 A078814 this_sequence A078816 A078817 
               A078818
%K A078815 base,nonn
%O A078815 1,2
%A A078815 Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Dec 06 2002