|
%I #20 Jun 17 2022 03:25:25
%S 3,5,8,11,101,242,383,424,454,545,585,606,666,676,757,949,2552,3443,
%T 3663,4664,5445,6006,6886,9339,10001,10601,11411,12321,15551,15651,
%U 17871,17971,18281,21412,22622,22922,24642,24942,25752,26762,28582
%N Palindromes equal to the sum of a prime number with its index.
%H Harvey P. Dale, <a href="/A115888/b115888.txt">Table of n, a(n) for n = 1..1000</a>
%e 666 = prime(103)+103.
%t Select[Total/@Table[{n,Prime[n]},{n,3200}],PalindromeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 03 2017 *)
%o (PARI) ispal(n) = my(e=digits(n));e == Vecrev(e) \\ A002113
%o for(k=1,10^6, b=k+prime(k);if(ispal(b),print1(b,", "))) \\ _Alexandru Petrescu_, Jun 15 2022
%Y Cf. A014688, A115884.
%Y Subsequence of A002113.
%K nonn,base
%O 1,1
%A _Giovanni Resta_, Feb 06 2006
|
