OFFSET
1,2
COMMENTS
Includes all numbers from 10^(2*k)-10^k to 10^(2*k)+10^k. - Robert Israel, Nov 11 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(2)=13 because int(sqrt(13))=3 and "3" occurs in "13".
a(7)=46 because int(sqrt(46))=6 and "6" occurs in "46".
a(38)=624 because int(sqrt(624))=24 and "24" occurs in "624".
MAPLE
filter:= proc(n) local S, T;
S:= sprintf("%d", n);
T:= sprintf("%d", floor(sqrt(n)));
StringTools[Search](T, S) <> 0
end proc:
select(filter, [$1..10000]); # Robert Israel, Nov 11 2018
PROG
FOR i& = 1 TO 1000000 s$ = MID$(STR$(INT(SQR(i&))), 2) IF INSTR(STR$(i&), s$) > 0 THEN PRINT i& END IF NEXT i&
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Gil Broussard, Jan 02 2008
STATUS
approved