A160547 Numbers coprime to 31.
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74
Offset: 1
Links
- Index entries for linear recurrences with constant coefficients, signature (1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,-1).
Programs
-
Mathematica
With[{nn=100},Complement[Range[nn],31*Range[Floor[nn/31]]]] (* Harvey P. Dale, Nov 29 2017 *)
-
Sage
[i for i in range(0,100) if gcd(31, i) == 1]
Formula
a(n) = n+floor((n-1)/(p-1)) where p=31 in this case. - Roger M Ellingson, Nov 14 2023
Extensions
Name edited by Roger M Ellingson, Nov 14 2023