login
Numbers n such that A002113(n) is a triangular number.
0

%I #10 Jun 17 2022 17:05:25

%S 0,1,3,6,14,15,26,68,75,129,158,186,249,759,1616,1827,2268,2679,4543,

%T 6072,6675,7294,13512,16146,27871,112640,116339,152889,161727,239533,

%U 260487,404161,670038,685744,767718,973504,2313206,6250177,6977617

%N Numbers n such that A002113(n) is a triangular number.

%C Indices of triangular numbers in the sequence of palindromes.

%e A002113(26) = 171 is a triangular number, so 26 is a term.

%t Join[{0},Flatten[Position[Select[Range[10^7],PalindromeQ],_?(OddQ[Sqrt[ 8#+1]]&)]]] (* The program generates the first 22 terms of the sequence. *) (* _Harvey P. Dale_, Jun 17 2022 *)

%o (ARIBAS) var c,n,m:integer; end; begin c:=0; for n:=0 to 100000000 do if n = intreverse(n) then m:=floor(sqrt(2*n)); if m*(m+1) div 2 = n then write(c,","); end; inc(c); end; end; end;

%o (PARI) {c=0;for(n=0,10000000,k=n;r=0;while(k>0,d=divrem(k,10);k=d[1];r=10*r+d[2]); if(n==r,m=sqrtint(2*n);if(m*(m+1)/2==n,print1(c,","));c++))}

%Y Cf. A000217, A002113, A003098, A008509.

%K nonn,base

%O 1,3

%A _Klaus Brockhaus_, Nov 27 2004

%E a(24) to a(38) from _Klaus Brockhaus_, Oct 05 2005