A208158 10-Knödel numbers.

12, 24, 28, 30, 50, 70, 110, 130, 150, 170, 190, 230, 290, 310, 330, 370, 410, 430, 442, 470, 530, 532, 550, 590, 610, 670, 710, 730, 790, 830, 890, 910, 970, 1010, 1030, 1070, 1090, 1130, 1270, 1310, 1370, 1390, 1490, 1510, 1570, 1630, 1650, 1670, 1730, 1790

Offset: 1

Author

Paolo P. Lava, Feb 24 2012

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Knödel Numbers

Crossrefs

Cf. A002997, A050990, A033553, A050992, A050993, A208154-A208157.

Programs

Maple

with(numtheory);
knodel:=proc(i,k)
local a,n,ok;
for n from k+1 to i do
  ok:=1;
  for a from 1 to n do
     if gcd(a,n)=1 then  if (a^(n-k) mod n)<>1 then ok:=0; break; fi; fi;
  od;
  if ok=1 then print(n); fi;
od;
end:
knodel(10000,10)

Mathematica

Select[Range[12, 1790, 2], Divisible[# - 10, CarmichaelLambda[#]]&] (* Jean-François Alcover, Mar 01 2018 *)