A214811 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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