A248843 Table read by rows in which row n lists divisors of (p^p-1)/(p-1) where p = prime(n).

1, 3, 1, 13, 1, 11, 71, 781, 1, 29, 4733, 137257, 1, 15797, 1806113, 28531167061, 1, 53, 264031, 1803647, 13993643, 95593291, 476218721057, 25239592216021, 1, 10949, 1749233, 2699538733, 19152352117, 29557249587617, 4722122236541789

Offset: 1

Author

Jean-François Alcover, Dec 03 2014

Keywords

• nonn
• tabf

Examples

			Table begins:
  [1, 3],
  [1, 13],
  [1, 11, 71, 781],
  [1, 29, 4733, 137257],
  [1, 15797, 1806113, 28531167061],
  [1, 53, 264031, 1803647, 13993643, 95593291, 476218721057, 25239592216021],
  ...
		

Links

• Samuel S. Wagstaff, Aurifeuillian Factorizations and the Period of the Bell Numbers, Math. Comp. 65 (1996), 383-391.
• Eric Weisstein's MathWorld, Bell Number
• Wikipedia, Bell Number

Crossrefs

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

Programs

Mathematica

Table[p = Prime[n]; Divisors[(p^p - 1)/(p - 1)], {n, 1, 10}] // Flatten