A159054 Members of A159053 which are not multiples of 3.
1, 143, 1763, 5183, 10153, 10403, 15109, 36863, 40183, 79523, 97343, 130273
Offset: 1
Keywords
Programs
-
Mathematica
lst={};Do[If[Mod[(Fibonacci[n-3]),n]==0,If[Mod[n,3]!=0,AppendTo[lst,n]]], {n,5*8!}];lst
Extensions
Definition reworded by R. J. Mathar, Apr 05 2009