OFFSET
1,3
MAPLE
with(numtheory) ; A077380 := proc(n) local anmax, leadd, edit, idit ; anmax := 10^n-1 ; while anmax >= 10^(n-1) do leadd := floor(anmax/10^(n-1)) ; edit := 10*leadd + ( anmax mod 10 ); idit := floor(anmax/10) -leadd*10^(n-2) ; if issqrfree(anmax) and issqrfree(edit) and issqrfree(idit) then RETURN(anmax) ; fi ; anmax := anmax-1 ; od ; RETURN(0) ; end: printf("0, ") ; for n from 2 to 30 do printf("%d, ", A077380(n)) ; od ; # R. J. Mathar, Sep 26 2006
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 06 2002
EXTENSIONS
More terms from R. J. Mathar, Sep 26 2006
STATUS
approved