A108637 Duplicate of A091296.
9, 15, 33, 35, 39, 51, 55, 57, 77, 91, 93, 95, 111, 115, 119, 133, 155, 159, 177, 319, 335
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a030096 n = a030096_list !! (n-1) a030096_list = filter f a000040_list where f x = odd d && (x < 10 || f x') where (x', d) = divMod x 10 -- Reinhard Zumkeller, Apr 07 2014, Jan 29 2013
[p: p in PrimesUpTo(1000) | forall{d: d in [0,2,4,6,8] | d notin Set(Intseq(p))}]; // Vincenzo Librandi, Apr 29 2019
Select[Prime[Range[500]],And@@OddQ[IntegerDigits[#]]&] (* Harvey P. Dale, Jan 28 2013 *)
is(n)=isprime(n) && #setintersect([0,2,4,6,8],Set(digits(n)))==0 \\ Charles R Greathouse IV, Feb 07 2017
f:= proc(n) local L,x,i; L:= convert(n,base,5); x:= 2*add(L[i]*10^(i-1),i=1..nops(L)); if isprime(x/2) then x else NULL fi end proc: map(f, [$1..1000]); # Robert Israel, Oct 01 2024
Select[Range[6000], Plus@@Last/@FactorInteger[ # ]==2&&Union[EvenQ/@IntegerDigits[ # ]]=={True}&]
Comments