A052148 Integers k < (reversal of k) such that (reversal of k) + 1 is divisible by k-1.
12, 102, 1002, 1079, 10002, 17525, 100002, 1000002, 3124739, 10000002, 100000002, 175247525, 1000000002, 1078012079, 1087921979
Offset: 1
Examples
For k = 12, the reversal of k is 21, 12-1 = 11, 21+1 = 22 and 11 divides 22.
Crossrefs
Cf. A004086.
Programs
-
Mathematica
Select[Range[10^7],# < FromDigits[Reverse[IntegerDigits[#]]] && Divisible[FromDigits[Reverse[IntegerDigits[#]]]+1,#-1]&] (* Stefano Spezia, May 29 2024 *)
-
PARI
isok(n) = {d = digits(n); revn = sum(i = 1, #d, d[i]*10^(i - 1)); (revn > n) && (n!=1) && ((revn + 1) % (n - 1) == 0);} \\ Michel Marcus, Aug 22 2013
Extensions
a(8)-a(11) from Naohiro Nomoto, Jun 24 2001
a(12)-a(15) from Sean A. Irvine, Oct 26 2021
Comments