The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A130133 Terms in A015922 not divisible by 3. 4
 1, 2, 4, 8, 248, 731, 1333, 3503, 17608, 35003, 50963, 62611, 82603, 90148, 94643, 106978, 201295, 231311, 253828, 335723, 364808, 374573, 425323, 490915, 592595, 628015, 725203, 984343, 1031803, 1112023, 1136195, 1376903, 1411343, 1430003, 1642798, 1926088 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Intersection of A015922 and A001651. - Michel Marcus, Oct 13 2013 LINKS Alois P. Heinz, Table of n, a(n) for n = 1..100 MAPLE a:= proc(n) option remember; local k; for k from 1+`if`(n=1, 0, a(n-1)) while irem(k, 3)=0 or 2&^k mod k <> 8 mod k do od; k end: seq(a(n), n=1..30); # Alois P. Heinz, Jun 04 2014 MATHEMATICA {1, 2, 4, 8} ~Join~ Select[Range[2 10^6], PowerMod[2, #, #] == 8 && !Divisible[#, 3]&] (* Jean-François Alcover, Nov 02 2020 *) PROG (PARI) isok(n) = (n % 3) && (Mod(2^n, n) == Mod(8, n)); \\ Michel Marcus, Oct 13 2013 CROSSREFS Cf. A001651, A015922, A130134. Intersection with A033553 gives A277344. Sequence in context: A133036 A083147 A012648 * A033555 A130134 A082613 Adjacent sequences: A130130 A130131 A130132 * A130134 A130135 A130136 KEYWORD nonn AUTHOR Zak Seidov, May 12 2007 EXTENSIONS a(17)-a(28) from Michel Marcus, Oct 13 2013 a(29)-a(36) from Alois P. Heinz, Jun 04 2014 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 23 23:09 EDT 2023. Contains 361454 sequences. (Running on oeis4.)