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,2

Links

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

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

Example

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],
  ...

Mathematica

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

Crossrefs

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

Sequence in context: A321697 A263008 A016479 * A170910 A134768 A295827

Adjacent sequences: A248840 A248841 A248842 * A248844 A248845 A248846

Keyword

nonn,tabf,changed

Author

Jean-François Alcover, Dec 03 2014

Status

approved