cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A086458 Both n and n^3 have the same initial digit and also n and n^3 have the same final digit when expressed in base 10.

This page as a plain text file.
%I A086458 #12 May 14 2023 12:24:54
%S A086458 0,1,10,11,29,34,99,100,101,104,105,106,109,110,111,114,115,116,119,
%T A086458 120,121,124,125,274,275,276,279,280,281,284,285,286,289,290,291,294,
%U A086458 295,296,299,311,314,315,316,319,320,321,324,325,326,329,330,331,334,335
%N A086458 Both n and n^3 have the same initial digit and also n and n^3 have the same final digit when expressed in base 10.
%C A086458 Intersection of A008854 and A144582. - _Michel Marcus_, Mar 19 2015
%H A086458 Harvey P. Dale, <a href="/A086458/b086458.txt">Table of n, a(n) for n = 0..2000</a>
%F A086458 left$(str$(n), 1) = left$(str$(n^3), 1) AND right$(str$(n), 1) = right$(str$(n^3), 1)
%e A086458 a(12) = 109 appears in the sequence because 109*109*109 = 1295029.
%t A086458 sidQ[n_]:=Module[{idn=IntegerDigits[n],i3=IntegerDigits[n^3]},idn[[1]]==i3[[1]]&&idn[[-1]]== i3[[-1]]]; Select[Range[0,400],sidQ] (* _Harvey P. Dale_, May 14 2023 *)
%o A086458 (PARI) isok(n) = (n == 0) || ((dn=digits(n)) && (ds=digits(n^3)) && (dn[#dn] == ds[#ds])); \\ _Michel Marcus_, Mar 19 2015
%Y A086458 Cf. A086457 (similar sequence with squares).
%Y A086458 Cf. A008854 (initial digit), A144582 (final digit).
%K A086458 base,easy,nonn
%O A086458 0,3
%A A086458 _Jeremy Gardiner_, Jul 20 2003