A214811 Triangle read by rows: row n lists prime factors of (p^p-1)/(p-1) where p = prime(n).

3, 13, 11, 71, 29, 4733, 15797, 1806113, 53, 264031, 1803647, 10949, 1749233, 2699538733, 109912203092239643840221, 461, 1289, 831603031789, 1920647391913, 59, 16763, 84449, 2428577, 14111459, 58320973, 549334763, 568972471024107865287021434301977158534824481, 149, 1999, 7993, 16651, 17317, 10192715656759, 41903425553544839998158239

Offset

1,1

Links

Table of n, a(n) for n=1..34.

J. Levine and R. E. Dalton, Minimum Periods, Modulo p, of First Order Bell Exponential Integrals, Mathematics of Computation, 16 (1962), 416-423. See Table 3.

Example

Triangle begins:
[3]
[13]
[11, 71]
[29, 4733]
[15797, 1806113]
[53, 264031, 1803647]
[10949, 1749233, 2699538733]
[109912203092239643840221]
[461, 1289, 831603031789, 1920647391913]
[59, 16763, 84449, 2428577, 14111459, 58320973, 549334763]
[568972471024107865287021434301977158534824481]
[149, 1999, 7993, 16651, 17317, 10192715656759, 41903425553544839998158239]
...

Maple

f:=proc(n) local i, t1, p, B, F;
p:=ithprime(n);
B:=(p^p-1)/(p-1);
F:=ifactors(B)[2];
lprint(n, p, B, F);
t1:=[seq(F[i][1], i=1..nops(F))];
sort(t1);
end;

Crossrefs

Cf. A001039, A054767, A125135, A214810, A214812.

Sequence in context: A272994 A273674 A360967 * A121565 A107733 A273076

Adjacent sequences: A214808 A214809 A214810 * A214812 A214813 A214814

Keyword

nonn,tabf

Author

N. J. A. Sloane, Jul 31 2012

Status

approved