OFFSET
1,3
LINKS
Eric M. Schmidt, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3) = 4 = (4)_12 since 4^2 = 16 = (14)_12 ends with 4 in base 12.
a(4) = 9 = (9)_12 since 9^2 = 81 = (69)_12 ends with 9 in base 12.
a(5) = 64 = (54)_12 since 64^2 = 4096 = (2454)_12 ends with 54 in base 12.
MATHEMATICA
a201918[n_Integer] := Module[{i = 0}, Flatten[Last[Reap[
Do[If[
IntegerDigits[i^2, 12][[-Length[IntegerDigits[i, 12]] ;; -1]] ==
IntegerDigits[i, 12], Sow[i]], {i, n}]]]]]; a201918[12^6] (* Michael De Vlieger, Aug 13 2014 *)
PROG
(Sage) # See A003226. - Eric M. Schmidt, Feb 09 2014
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Martin Renner, Dec 06 2011
EXTENSIONS
More terms from Eric M. Schmidt, Feb 09 2014
STATUS
approved