A004668 Powers of 3 written in base 26. (Next term contains a non-decimal digit.)
1, 3, 9, 11, 33, 99, 121, 363
Offset: 0
Crossrefs
Programs
-
Mathematica
Select[Divisors[1089], # < 1089 &] (* Wesley Ivan Hurt, Jun 13 2014 *)
-
PARI
fordiv(1089, d, (d<1089) && print1(d, ", ")) \\ Michel Marcus, Jun 14 2014
-
PARI
divisors(1089)[^-1] \\ M. F. Hasler, Jun 22 2018
-
PARI
apply( A004668(n,b=26,m=3)=fromdigits(digits(m^n,b)), [0..8]) \\ This implements one possible continuation of the sequence beyond n = 7: write digits in decimal and carry over (so 363*3 = 9I9[26] -> 9*100 + 18*10 + 9 = 1089). - M. F. Hasler, Jun 22 2018
Comments