A164837 a(n) is a prime number such that every k-digit substring ( k < n ) taken from the left, is divisible by k.

2, 3, 5, 7, 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, 127, 149, 163, 167, 181, 223, 227, 229, 241, 263, 269, 281, 283, 307, 347, 349, 367, 383, 389, 401, 409, 421, 443, 449, 461, 463, 467, 487, 503, 509

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

269 is a member since 2 is divisible by 1 and 26 is divisible by 2.

Mathematica

kdsQ[n_]:=With[{idn=IntegerDigits[n]}, Union[Table[Mod[FromDigits[Take[idn, k]], k], {k, Length[idn]-1}]]=={0}]; Join[{2, 3, 5, 7}, Select[Prime[Range[100]], kdsQ]] (* Harvey P. Dale, Dec 16 2025 *)

Crossrefs

Sequence in context: A393798 A163849 A124591 * A069675 A049585 A049549

Adjacent sequences: A164834 A164835 A164836 * A164838 A164839 A164840

Keyword

nonn,base

Author

Gaurav Kumar, Aug 28 2009

Status

approved