A045786 Squares with initial digit '3'.
36, 324, 361, 3025, 3136, 3249, 3364, 3481, 3600, 3721, 3844, 3969, 30276, 30625, 30976, 31329, 31684, 32041, 32400, 32761, 33124, 33489, 33856, 34225, 34596, 34969, 35344, 35721, 36100, 36481, 36864, 37249, 37636, 38025, 38416, 38809
Offset: 1
Programs
-
Mathematica
Select[Range[200]^2,First[IntegerDigits[#]]==3&] (* Harvey P. Dale, Apr 21 2011 *)
Formula
a(n) = A045857(n)^2. - Michel Marcus, Sep 04 2021