|
|
A030287
|
|
a(n) is the smallest k > a(n-1) such that k^2 has no digit in common with a(n-1)^2.
|
|
3
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 9, 15, 19, 20, 23, 26, 29, 30, 34, 47, 56, 65, 83, 85, 90, 156, 241, 264, 265, 291, 300, 334, 448, 563, 638, 715, 780, 961, 2000, 2261, 2457, 3335, 5478, 7154, 9128, 9569, 14220, 17654, 20000, 22609, 26462, 28604, 30000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Nest[Append[#, Block[{k = Last[#] + 1}, While[IntersectingQ @@ IntegerDigits@ {Last[#]^2, k^2}, k++]; k]] &, {0}, 50] (* Michael De Vlieger, Nov 03 2017 *)
|
|
PROG
|
(PARI) next_A030287(n, D=Set(digits(n^2)))=for(k=n+1, oo, #setintersect(Set(digits(k^2)), D)||return(k))
|
|
CROSSREFS
|
Cf. A030288: squares whose digits do not appear in previous term.
Cf. A067581: a(n) has no digit of a(n-1).
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|