|
%I #4 Dec 05 2013 19:55:17
%S 0,1,3,6,10,15,21,28,36,45,55,66,78,91,136,231,435,630,333336
%N Triangular numbers with internal digits 3.
%C For proof of finiteness see A069693.
%t Do[ If[ Union[ Drop[ RotateLeft[ IntegerDigits[n(n + 1)/2]], -2]] == {3}, Print[n(n + 1)/2]], {n, 14, 2 10^6}]
%Y Cf. A069675 to A069684, A069693 to A069700.
%K fini,full,nonn,base
%O 1,3
%A _Amarnath Murthy_, Apr 06 2002
%E Extended by _Robert G. Wilson v_, Apr 07 2002
|
