cp's OEIS Frontend

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