|
|
A253721
|
|
Triprimes modulo 10.
|
|
3
|
|
|
8, 2, 8, 0, 7, 8, 0, 2, 4, 5, 0, 2, 3, 6, 8, 0, 5, 6, 8, 2, 8, 9, 2, 5, 0, 4, 6, 7, 4, 5, 0, 8, 7, 8, 3, 4, 4, 5, 0, 1, 2, 4, 5, 2, 6, 8, 0, 5, 7, 2, 2, 0, 1, 6, 8, 2, 4, 5, 6, 5, 8, 1, 6, 8, 3, 5, 9, 2, 4, 5, 6, 0, 2, 0, 6, 8, 2, 5, 2, 3, 8, 3, 5, 4, 6, 7
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
with(numtheory): A253721:=n->`if`(bigomega(n) = 3, n mod 10, NULL): seq(A253721(n), n=1..500);
|
|
MATHEMATICA
|
Mod[#, 10] & /@ Select[Range[500], PrimeOmega[#] == 3 &]
|
|
PROG
|
(Haskell)
(PARI) do(x)=my(v=List(), t); forprime(p=2, x\4, forprime(q=2, min(x\(2*p), p), t=p*q; forprime(r=2, min(x\t, q), listput(v, t*r)))); Set(v)%10 \\ Charles R Greathouse IV, Aug 30 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|