OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Flatten[Table[Range[Ceiling[Sqrt[6*10^n]], Floor[Sqrt[7*10^n]]], {n, 5}]] (* Harvey P. Dale, Apr 03 2013 *)
PROG
(Python)
from math import isqrt
def aupto(limit):
alst, d, end = [], 1, 0
while end < limit:
start, end = isqrt(6*10**d) + 1, isqrt(7*10**d-1)
alst.extend([an for an in list(range(start, end+1)) if an <= limit])
d += 1
return alst
print(aupto(799)) # Michael S. Branicky, Aug 25 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved