A129546 Numbers k such that T(k)+10 is the next prime after T(k), where T(k) = A000217(k).

58, 61, 98, 138, 193, 217, 222, 233, 253, 266, 338, 358, 373, 393, 398, 402, 453, 461, 466, 477, 481, 542, 553, 557, 586, 597, 602, 618, 633, 646, 662, 761, 822, 838, 853, 857, 877, 898, 901, 913, 918, 926, 941, 986, 1006, 1041, 1061, 1077, 1126, 1157, 1161

Offset: 1

Author

Zak Seidov, May 30 2007

Keywords

• nonn

Examples

			T(58)=1711 and 1711+10=1721 is the least prime > 1711;
T(61)=1891 and 1891+10=1901 is the least prime > 1891.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000217, A129755, A130178.

Programs

Mathematica

nptQ[n_]:=Module[{tr=(n(n+1))/2},NextPrime[tr]-tr==10]; Select[ Range[ 1200], nptQ] (* Harvey P. Dale, Dec 19 2017 *)

PARI

isok(n) = t = n*(n+1)/2; nextprime(t+1) == (t + 10); \\ Michel Marcus, Oct 13 2013