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.

A067269 Triangular numbers which remain triangular when the most significant digit is moved to the end.

This page as a plain text file.
%I A067269 #12 Sep 17 2024 12:34:35
%S A067269 1,3,6,10,55,66,300,325,666,1035,1485,1891,61776,103740,109746,112575,
%T A067269 190653,340725,1026028,1264845,3000025,3002475,3592540,3670695,
%U A067269 37840650,60000535,61577253,65008503,1001393128,1432436050,1560756385
%N A067269 Triangular numbers which remain triangular when the most significant digit is moved to the end.
%e A067269 1485 is a term as 1485 and 4851 both are triangular numbers.
%t A067269 Do[k = FromDigits[ RotateLeft[ IntegerDigits[n(n + 1)/2]]]; l = Floor[ Sqrt[2k]]; If[k == l(l + 1)/2, Print[n(n + 1)/2]], {n, 1, 10^5}]
%t A067269 msdmeQ[n_]:=IntegerQ[(Sqrt[1+8*FromDigits[RotateLeft[IntegerDigits[ n]]]]-1)/2]; Select[Accumulate[Range[55900]],msdmeQ] (* _Harvey P. Dale_, Aug 22 2014 *)
%Y A067269 Cf. A000217, A345110.
%K A067269 base,nonn
%O A067269 1,2
%A A067269 _Amarnath Murthy_, Feb 22 2002
%E A067269 Edited by _Robert G. Wilson v_, Feb 28 2002
%E A067269 Offset changed by _Andrew Howroyd_, Sep 17 2024