

A225837


Numbers of form 2^i*3^j*(6k+1), i, j, k >= 0.


2



1, 2, 3, 4, 6, 7, 8, 9, 12, 13, 14, 16, 18, 19, 21, 24, 25, 26, 27, 28, 31, 32, 36, 37, 38, 39, 42, 43, 48, 49, 50, 52, 54, 55, 56, 57, 61, 62, 63, 64, 67, 72, 73, 74, 75, 76, 78, 79, 81, 84, 85, 86, 91, 93, 96, 97, 98, 100, 103, 104, 108, 109, 110, 111, 112
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

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


MATHEMATICA

mx = 122; t = {}; Do[n = 2^i*3^j (6 k + 1); If[n <= mx, AppendTo[t, n]], {i, 0, Log[2, mx]}, {j, 0, Log[3, mx]}, {k, 0, mx/6}]; Union[t] (* T. D. Noe, May 16 2013 *)


PROG

(PARI) for(n=1, 200, t=n/(2^valuation(n, 2)*3^valuation(n, 3)); if((t%6==1), print1(n, ", ")))
(MAGMA) [n: n in [1..200]  IsOne(d mod 6) where d is n div (2^Valuation(n, 2)*3^Valuation(n, 3))]; // Bruno Berselli, May 16 2013


CROSSREFS

Inverse of A225838.
Sequence in context: A285986 A101883 A236207 * A035246 A112258 A032893
Adjacent sequences: A225834 A225835 A225836 * A225838 A225839 A225840


KEYWORD

nonn,easy


AUTHOR

Ralf Stephan, May 16 2013


STATUS

approved



