OFFSET
1,1
COMMENTS
EXAMPLE
Irregular triangle:
{3},
{2, 5, 7, 17},
{4, 9, 11, 19, 26, 31, 49, 161},
{6, 8, 13, 15, 29, 41, 55, 71, 97, 99, 127, 244, 251, 449, 4801, 8749}
MATHEMATICA
t = Table[FactorInteger[n^2 - 1][[-1, 1]], {n, 2, 10^5}]; Table[1 + Flatten[Position[t, Prime[n]]], {n, 6}]
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
T. D. Noe, Apr 03 2013
STATUS
approved