OFFSET
1,2
LINKS
Harvey P. Dale and T. D. Noe, Table of n, a(n) for n = 1..1000 (first 500 terms from Harvey P. Dale)
EXAMPLE
prime(13)-13 = 41-13 = 28 = T(7).
MATHEMATICA
Flatten[Position[Table[Prime[n]-n, {n, 6000}], _?(IntegerQ[(Sqrt[ 8#+1]- 1)/2]&)]] (* Harvey P. Dale, Oct 08 2012 *)
pntQ[{a_, b_}]:=OddQ[Sqrt[8(a-b)+1]]; Module[{nn=6000}, Select[Thread[ {Prime[ Range[nn]], Range[nn]}], pntQ]][[All, 2]] (* Harvey P. Dale, Dec 20 2019 *)
PROG
(PARI) isok(n) = ispolygonal(prime(n) - n, 3); \\ Michel Marcus, Jan 25 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved