OFFSET
1,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
275 is in sequence because 275 = 5*5*11, where 5 = 6-1 and 11 = 6*2-1.
MATHEMATICA
okQ[n_] := n==1 || And @@ (Mod[#, 6]==5& /@ FactorInteger[n][[All, 1]]); Select[Range[400], okQ] (* Jean-François Alcover, Jul 02 2015 *)
PROG
(Magma) [n: n in [1..400] | forall{d: d in PrimeDivisors(n) | d mod 6 eq 5}];
(PARI) list(lim)=my(v=List([1]), mn, mx, t); forprime(p=5, lim\=1, if(p%6==5, listput(v, p))); if(lim<25, return(Vec(v))); forprime(p=5, sqrtint(lim), if(p%6<5, next); mx=1; while(v[mx+1]*p<=lim, for(i=mn=mx+1, mx=#v, t=p*v[i]; if(t>lim, break); listput(v, t)))); Set(v) \\ Charles R Greathouse IV, Jan 11 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Bruno Berselli, Jun 30 2015
STATUS
approved