cp's OEIS Frontend

A055872 a(n) and floor(a(n)/8) are both squares; i.e., squares that remain squares when written in base 8 and last digit is removed.

%I A055872 #25 Aug 02 2016 13:28:47
%S A055872 0,1,4,9,36,289,1156,9801,39204,332929,1331716,11309769,45239076,
%T A055872 384199201,1536796804,13051463049,52205852196,443365544449,
%U A055872 1773462177796,15061377048201,60245508192804
%N A055872 a(n) and floor(a(n)/8) are both squares; i.e., squares that remain squares when written in base 8 and last digit is removed.
%C A055872 For the first 3 terms which have only 1 digit in base 8, removing this digit is meant to yield 0.
%C A055872 Base-8 analog of A055792 (base 2), A055793 (base 3), A055808 (base 4), A055812 (base 5), A055851 (base 6), A055859 (base 7), A204503 (base 9) and A023110 (base 10). - _M. F. Hasler_, Jan 15 2012
%H A055872 M. F. Hasler, <a href="/wiki/M. F. Hasler/Truncated_squares">Truncated squares</a>, OEIS wiki, Jan 16 2012.
%H A055872 <a href="/index/Sq#sqtrunc">Index to sequences related to truncating digits of squares</a>.
%H A055872 <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (0,35,0,-35,0,1)
%F A055872 a(n) = A204514(n)^2. -  _M. F. Hasler_, Jan 15 2012
%F A055872 Empirical g.f.: -x^2*(4*x+1)*(9*x^4-26*x^2+1) / ((x-1)*(x+1)*(x^2-6*x+1)*(x^2+6*x+1)). - _Colin Barker_, Sep 15 2014
%e A055872 a(5) = 289 because 289 = 17^2 = 441 base 8 and 44 base 8 = 36 = 6^2.
%t A055872 Select[Range[0,8*10^6]^2,IntegerQ[Sqrt[FromDigits[Most[ IntegerDigits[ #,8]], 8]]]&] (* _Harvey P. Dale_, Aug 02 2016 *)
%o A055872 (PARI) b=8;for(n=1,200,issquare(n^2\b) && print1(n^2,",")) \\ _M. F. Hasler_, Jan 15 2012
%Y A055872 Cf. A023110, A055792 (bisection).
%K A055872 base,nonn,easy
%O A055872 1,3
%A A055872 _Henry Bottomley_, Jul 14 2000
%E A055872 More terms added and offset changed to 1 by _M. F. Hasler_, Jan 15 2012