OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
ok[1] = True; ok[n_] := And@@ (Mod[#, 5] == 2 &)/@ FactorInteger[n][[All, 1]]; Select[Range[2000], ok] (* Vincenzo Librandi, Aug 11 2012 *)
PROG
(Magma) [n: n in [1..300] | forall{d: d in PrimeDivisors(n) | d mod 5 eq 2}]; // Bruno Berselli, Aug 11 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Offset changed from 0 to 1 by Vincenzo Librandi, Aug 20 2012
STATUS
approved