OFFSET
0,3
COMMENTS
If only positive squares are considered then the first term is 100.
EXAMPLE
a(3) = 36 since 3 occurs in 36, but not in 0, 1, 4, 9, 16, 25.
PROG
(ARIBAS) var sn, sq:string; b:boolean; end; begin for n := 0 to 49 do sn := itoa(n); c := length(sn); b := true; p := 0; while b do q := p^2; sq := itoa(q); d := length(sq); j := 0; while b and j<=d-c do if sn=sq[j..j+c-1] then b := false; write(q, ", "); else inc(j); end; end; if b then inc(p); end; end; end; end;
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Zak Seidov, Sep 22 2003
EXTENSIONS
Edited, corrected and extended by Klaus Brockhaus and Ray Chandler, Sep 22 2003
STATUS
approved