|
| |
|
|
A034096
|
|
Decimal part of square root of n starts with digit 0 (powers excluded).
|
|
12
| |
|
|
26, 37, 50, 65, 82, 101, 102, 122, 123, 145, 146, 170, 171, 197, 198, 226, 227, 228, 257, 258, 259, 290, 291, 292, 325, 326, 327, 362, 363, 364, 401, 402, 403, 404, 442, 443, 444, 445, 485, 486, 487, 488, 530, 531, 532, 533, 577, 578, 579, 580, 626, 627
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Nathaniel Johnston, Table of n, a(n) for n = 1..10000
|
|
|
MAPLE
| A034096 := proc(n) option remember: local k, rt: if(n=1)then return 26: else k:=procname(n-1)+1: do rt:=sqrt(k): if(not frac(rt)=0 and floor(10*rt) mod 10 = 0)then return k: fi: k:=k+1: od: fi: end: seq(A034096(n), n=1..50); # Nathaniel Johnston, May 04 2011
|
|
|
MATHEMATICA
| zdQ[n_]:=Module[{c=Sqrt[n], sr, i, l}, sr=RealDigits[c, 10, 5]; i=Last[sr]+1; l=First[sr]; l[[i]]==0&&!IntegerQ[c]]; Select[Range[700], zdQ] (* From Harvey P. Dale, Oct 10 2011 *)
|
|
|
CROSSREFS
| Cf. A034106.
Sequence in context: A103079 A046468 A138065 * A034106 A171745 A106551
Adjacent sequences: A034093 A034094 A034095 * A034097 A034098 A034099
|
|
|
KEYWORD
| nonn,easy,base
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com), Sep 15 1998.
|
| |
|
|
