login
A133785
Numbers n such that integer part of the square root of n appears as a substring in n.
2
1, 13, 24, 25, 35, 36, 46, 57, 68, 78, 80, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 214, 317, 420, 522, 624, 625, 726, 828, 930, 1032, 1133, 1235, 1336, 1360, 1361, 1362, 1363, 1364, 1365, 1366, 1367
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
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
Sequence in context: A018958 A119410 A098927 * A136316 A063315 A104342
KEYWORD
easy,nonn,base
AUTHOR
Gil Broussard, Jan 02 2008
STATUS
approved