A140461 Numbers in A008364 but not in A038511.

1, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281

Offset: 1

Author

Juri-Stepan Gerasimov, Jul 22 2008

Keywords

• nonn
• easy

Programs

Maple

isA008364 := proc(n) if n = 1 then true; else min( op(numtheory[factorset](n)) ); if % > 7 then true; else false; end if; end if; end proc:
isA038511 := proc(n) if n = 1 then false; else min( op(numtheory[factorset](n)) ); if % >= 11 and not isprime(n) then true; else false; end if; end if; end proc:
for n from 1 to 300 do if isA008364(n) and not isA038511(n) then printf("%d,",n) ; end if; end do: # R. J. Mathar, Apr 25 2010

PARI

a(n)=if(n==1,1,prime(n+3)) \\ Charles R Greathouse IV, Aug 26 2011

Extensions

Entries checked by R. J. Mathar, Apr 25 2010