OFFSET
1,2
COMMENTS
See A277728 for discussion.
MAPLE
Digits := 120;
isA277722 := proc(n)
a276800 := 3.3829757679062374941227085364550345869493820437485761820195626772353718960099402922235933340043661396041006 ;
for x from floor((n-3)/a276800) to (n+3)/a276800 do
if floor(x*a276800) = n then
return true;
end if;
end do:
return false;
end proc:
isA277723 := proc(n)
a276801 := 6.2222625231203986266745611011083211873735607898461684287983213166395751180919067179620287534326731537460804;
for x from floor((n-3)/a276801) to (n+3)/a276801 do
if floor(x*a276801) = n then
return true;
end if;
end do:
return false;
end proc:
isA277726 := proc(n)
isA277722(n) and isA277723(n) ;
end proc:
for n from 0 to 8000 do
if isA277726(n) then
printf("%d, ", n) ;
end if;
end do: # R. J. Mathar, Nov 02 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 30 2016
EXTENSIONS
Corrected by R. J. Mathar, Nov 01 2016
STATUS
approved