|
Search: id:A078815
|
|
| |
|
| 1, 25, 121, 16, 121, 1089, 121, 1089, 1089, 1156, 1089, 1089, 1089, 1089, 1024, 1089, 10404, 1089, 1024, 1089, 1024, 10404, 10404, 10404, 10404, 10404, 10404, 10404, 1024, 10404, 10404, 1024, 10404, 1024, 1024, 10404, 1024, 1024, 1024, 1024, 1024
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
PROGRAM
|
(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)}
|
|
CROSSREFS
|
Cf. A078215, A078216.
Sequence in context: A020152 A124953 A126412 this_sequence A036057 A083509 A031151
Adjacent sequences: A078812 A078813 A078814 this_sequence A078816 A078817 A078818
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Dec 06 2002
|
|
|
Search completed in 0.002 seconds
|
