cp's OEIS Frontend

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

%I A214811 #19 Feb 19 2018 22:00:15
%S A214811 3,13,11,71,29,4733,15797,1806113,53,264031,1803647,10949,1749233,
%T A214811 2699538733,109912203092239643840221,461,1289,831603031789,
%U A214811 1920647391913,59,16763,84449,2428577,14111459,58320973,549334763,568972471024107865287021434301977158534824481,149,1999,7993,16651,17317,10192715656759,41903425553544839998158239
%N A214811 Triangle read by rows: row n lists prime factors of (p^p-1)/(p-1) where p = prime(n).
%H A214811 J. Levine and R. E. Dalton, <a href="http://dx.doi.org/10.1090/S0025-5718-1962-0148604-2">Minimum Periods, Modulo p, of First Order Bell Exponential Integrals</a>, Mathematics of Computation, 16 (1962), 416-423. See Table 3.
%e A214811 Triangle begins:
%e A214811 [3]
%e A214811 [13]
%e A214811 [11, 71]
%e A214811 [29, 4733]
%e A214811 [15797, 1806113]
%e A214811 [53, 264031, 1803647]
%e A214811 [10949, 1749233, 2699538733]
%e A214811 [109912203092239643840221]
%e A214811 [461, 1289, 831603031789, 1920647391913]
%e A214811 [59, 16763, 84449, 2428577, 14111459, 58320973, 549334763]
%e A214811 [568972471024107865287021434301977158534824481]
%e A214811 [149, 1999, 7993, 16651, 17317, 10192715656759, 41903425553544839998158239]
%e A214811 ...
%p A214811 f:=proc(n) local i,t1,p,B,F;
%p A214811 p:=ithprime(n);
%p A214811 B:=(p^p-1)/(p-1);
%p A214811 F:=ifactors(B)[2];
%p A214811 lprint(n,p,B,F);
%p A214811 t1:=[seq(F[i][1],i=1..nops(F))];
%p A214811 sort(t1);
%p A214811 end;
%Y A214811 Cf. A001039, A054767, A125135, A214810, A214812.
%K A214811 nonn,tabf
%O A214811 1,1
%A A214811 _N. J. A. Sloane_, Jul 31 2012