A387472 Numbers k such that the sum of the first k digits of e is divisible by k.
1, 5, 13, 87
Offset: 1
Examples
5 is a term since 2+7+1+8+2 = 20 is divisible by 5.
Programs
-
Mathematica
Module[{nn=20000,ed},ed=RealDigits[E,10,nn][[1]];Select[Range[nn],Mod[Total[Take[ed,#]],#]==0&]]
Formula
{k such that k divides A046975(k-1)}. - Michael S. Branicky, Aug 30 2025
Comments